Commits

Daniel Green committed 11319c4

Compilable tests now execute and pass with GCC.

Comments (0)

Files changed (4)

gdc.test/compilable/99bottles.d

+// { dg-prune-output .* }
+
 // written by Don Clugston:
 //    http://www.digitalmars.com/d/archives/digitalmars/D/announce/4374.html
 //    http://www.99-bottles-of-beer.net/language-d-1212.html

gdc.test/compilable/header.d

+// { dg-prune-output .* }
+
 // PERMUTE_ARGS:
 // REQUIRED_ARGS: -H -Hdtest_results/compilable
 // POST_SCRIPT: compilable/extra-files/header-postscript.sh

gdc.test/compilable/parse6719.d

+// { dg-prune-output .* }
+
 pragma(msg, __traits(compiles, mixin("(const(A))[0..0]")));

gdc.test/d_do_test.exp

 
     switch $type {
         compilable {
-#            puts $fdout {// { dg-final { output-exists } } }
+            puts $fdout {// { dg-final { output-exists } } }
         }
     }
 
 proc gdc-do-test { } {
     global srcdir subdir
     global verbose
-    global dg-final-code
-
 
     # If a testcase doesn't have special options, use these.
     global DEFAULT_DFLAGS
         }
 
         # Convert to DG test.
-        set import_dir "[file dirname $test]/import"
+        set imports [file dirname $test]
+        set imports [format "-I%s -I%s/imports" $imports $imports]
         set filename [dmd2dg $dir $test]
 
         #set options [gdc-permute-options $DEFAULT_DFLAGS]
             
             compilable {
                 for { set i 0 } { $i<[llength $options] } { incr i } {
-                    set flags [format "%s -I%s" [lindex $options $i] $import_dir]
+                    set flags [format "%s %s -fdeprecated" [lindex $options $i] $imports]
                     puts "$filename - $flags"
-                    gdc-dg-test $filename  assemble "$flags"
+                    set dg-do-what-default "assemble"
+                    gdc-dg-runtest $test "$flags"
                 }
             }