diff options
| author | Tobias Burnus <burnus@net-b.de> | 2015-01-02 14:36:38 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2015-01-02 14:36:38 +0100 |
| commit | 09ed8520b912f4455741528556e62cd3cfa8a53d (patch) | |
| tree | 68543981dd02bcaeda5b1598ce5b1ea49fa25160 /gcc | |
| parent | 213ab0a6c49f10069615b98d38bb794f844cf433 (diff) | |
| download | gcc-09ed8520b912f4455741528556e62cd3cfa8a53d.zip gcc-09ed8520b912f4455741528556e62cd3cfa8a53d.tar.gz gcc-09ed8520b912f4455741528556e62cd3cfa8a53d.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray/caf.exp | 17 |
2 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 543cec6..095b09d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,9 @@ 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. * gfortran.dg/coarray/codimension_2a.f90: New. * gfortran.dg/coarray_35.f90: New. diff --git a/gcc/testsuite/gfortran.dg/coarray/caf.exp b/gcc/testsuite/gfortran.dg/coarray/caf.exp index 011b5c9..e4e3798 100644 --- 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 "" } |