OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Burnus 2015-01-02 14:36:38 +01:00 committed by Tobias Burnus
parent 213ab0a6c4
commit 09ed8520b9
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -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> 2015-01-02 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/coarray/codimension_2.f90: New. * gfortran.dg/coarray/codimension_2.f90: New.

17
gcc/testsuite/gfortran.dg/coarray/caf.exp
View File

@ -43,6 +43,21 @@ global DG_TORTURE_OPTIONS torture_with_loops
torture-init torture-init
set-torture-options $DG_TORTURE_OPTIONS 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. # Main loop.
foreach test [lsort [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ]] { 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. # 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 { foreach flags $option_list {
verbose "Testing $nshort (single), $flags" 1 verbose "Testing $nshort (single), $flags" 1
set gfortran_aux_module_flags "-fcoarray=single $flags"
dg-test $test "-fcoarray=single $flags" "" dg-test $test "-fcoarray=single $flags" ""
cleanup-modules "" cleanup-modules ""
} }
foreach flags $option_list { foreach flags $option_list {
verbose "Testing $nshort (libcaf_single), $flags" 1 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" "" dg-test $test "-fcoarray=lib $flags -lcaf_single" ""
cleanup-modules "" cleanup-modules ""
} }