caf.exp (dg-compile-aux-modules): Add.

2015-01-02  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/coarray/caf.exp (dg-compile-aux-modules): Add.

From-SVN: r219143

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 543cec61e1a6cc20e0950cdcaead29fc5f536534..095b09d80e37c9f284773c714ff797cf0cd5fb94 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2015-01-02  Tobias Burnus  <burnus@net-b.de>
+
+       * gfortran.dg/coarray/caf.exp (dg-compile-aux-modules): Add.
+
 2015-01-02  Tobias Burnus  <burnus@net-b.de>
 
        * gfortran.dg/coarray/codimension_2.f90: New.

diff --git a/gcc/testsuite/gfortran.dg/coarray/caf.exp b/gcc/testsuite/gfortran.dg/coarray/caf.exp
index 011b5c9d612da80e18bb05dd3720847478f7c59b..e4e37983fda3b82c196d823fd09bfd232e93f7b8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/coarray/caf.exp
+++ b/gcc/testsuite/gfortran.dg/coarray/caf.exp
@@ -43,6 +43,21 @@ global DG_TORTURE_OPTIONS torture_with_loops
 torture-init
 set-torture-options $DG_TORTURE_OPTIONS
 
+global gfortran_test_path
+global gfortran_aux_module_flags
+set gfortran_test_path $srcdir/$subdir
+set gfortran_aux_module_flags $DEFAULT_FFLAGS
+proc dg-compile-aux-modules { args } {
+    global gfortran_test_path
+    global gfortran_aux_module_flags
+    if { [llength $args] != 2 } {
+       error "dg-set-target-env-var: needs one argument"
+       return
+    }
+    dg-test $gfortran_test_path/[lindex $args 1] "" $gfortran_aux_module_flags
+    # cleanup-modules isn't intentionally invoked here.
+}
+
 # Main loop.
 foreach test [lsort [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ]] {
     # If we're only testing specific files and this isn't one of them, skip it.
@@ -65,12 +80,14 @@ foreach test [lsort [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ]]
 
     foreach flags $option_list {
        verbose "Testing $nshort (single), $flags" 1
+        set gfortran_aux_module_flags "-fcoarray=single $flags"
        dg-test $test "-fcoarray=single $flags" "" 
        cleanup-modules ""
     }
 
     foreach flags $option_list {
        verbose "Testing $nshort (libcaf_single), $flags" 1
+        set gfortran_aux_module_flags "-fcoarray=lib $flags -lcaf_single"
        dg-test $test "-fcoarray=lib $flags -lcaf_single" ""
        cleanup-modules ""
     }