1 # Copyright
(C
) 2004-2024 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
21 load_lib atomic-dg.exp
23 # If a testcase doesn't have special options
, use these.
25 if ![info exists DEFAULT_FFLAGS
] then {
26 set DEFAULT_FFLAGS
" -pedantic-errors"
32 global gfortran_test_path
33 global gfortran_aux_module_flags
34 set gfortran_test_path $srcdir/$subdir
35 set gfortran_aux_module_flags $DEFAULT_FFLAGS
36 proc dg-compile-aux-modules { args } {
37 global gfortran_test_path
38 global gfortran_aux_module_flags
39 if { [llength $args] != 2 } {
40 error "dg-compile-aux-modules: needs one argument"
44 set level [info level]
45 if { [info procs dg-save-unknown] != [list] } {
46 rename dg-save-unknown dg-save-unknown-level-$level
49 dg-test $gfortran_test_path/[lindex $args 1] "" $gfortran_aux_module_flags
50 # cleanup-modules is intentionally not invoked here.
52 if { [info procs dg-save-unknown-level-$level] != [list] } {
53 rename dg-save-unknown-level-$level dg-save-unknown
57 set all_flags $DEFAULT_FFLAGS
60 gfortran-dg-runtest [lsort \
61 [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ] ] "" $all_flags
63 gfortran-dg-runtest [lsort \
64 [glob -nocomplain $srcdir/$subdir/g77/*.\[fF\] ] ] "" $all_flags