1 # Copyright
(C
) 2004-2014 Free Software Foundation
, Inc.
3 # This
program is free software
; you can redistribute it and
/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation
; either version
3 of the License
, or
6 #
(at your option
) any later version.
8 # This
program is distributed in the hope that it will be useful
,
9 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License
for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with GCC
; see the file COPYING3.
If not see
15 #
<http
://www.gnu.org
/licenses
/>.
17 # GCC testsuite that uses the `dg.exp
' driver.
20 load_lib gfortran-dg.exp
22 # If a testcase doesn't have special options
, use these.
24 if ![info exists DEFAULT_FFLAGS
] then {
25 set DEFAULT_FFLAGS
" -pedantic-errors"
31 global gfortran_test_path
32 global gfortran_aux_module_flags
33 set gfortran_test_path $srcdir/$subdir
34 set gfortran_aux_module_flags $DEFAULT_FFLAGS
35 proc dg-compile-aux-modules { args } {
36 global gfortran_test_path
37 global gfortran_aux_module_flags
38 if { [llength $args] != 2 } {
39 error "dg-set-target-env-var: needs one argument"
42 dg-test $gfortran_test_path/[lindex $args 1] "" $gfortran_aux_module_flags
43 # cleanup-modules isn't intentionally invoked here.
47 gfortran
-dg
-runtest
[lsort \
48 [glob
-nocomplain $srcdir
/$subdir
/*.\
[fF\
]{,90,95,03,08} ] ] "" $DEFAULT_FFLAGS
50 gfortran
-dg
-runtest
[lsort \
51 [glob
-nocomplain $srcdir
/$subdir
/g77
/*.\
[fF\
] ] ] "" $DEFAULT_FFLAGS