]>
Commit | Line | Data |
---|---|---|
fbd26352 | 1 | # Copyright (C) 2004-2019 Free Software Foundation, Inc. |
efcf9077 | 2 | |
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 | |
f63ff66b | 5 | # the Free Software Foundation; either version 3 of the License, or |
efcf9077 | 6 | # (at your option) any later version. |
7 | # | |
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. | |
12 | # | |
13 | # You should have received a copy of the GNU General Public License | |
f63ff66b | 14 | # along with GCC; see the file COPYING3. If not see |
15 | # <http://www.gnu.org/licenses/>. | |
efcf9077 | 16 | |
17 | # GCC testsuite that uses the `dg.exp' driver. | |
18 | ||
19 | # Load support procs. | |
20 | load_lib gfortran-dg.exp | |
21 | ||
22 | # If a testcase doesn't have special options, use these. | |
23 | global DEFAULT_FFLAGS | |
24 | if ![info exists DEFAULT_FFLAGS] then { | |
25 | set DEFAULT_FFLAGS " -pedantic-errors" | |
26 | } | |
27 | ||
28 | # Initialize `dg'. | |
29 | dg-init | |
30 | ||
9b8ec2f3 | 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" | |
40 | return | |
41 | } | |
6278a9a2 | 42 | |
43 | set level [info level] | |
44 | if { [info procs dg-save-unknown] != [list] } { | |
45 | rename dg-save-unknown dg-save-unknown-level-$level | |
46 | } | |
47 | ||
9b8ec2f3 | 48 | dg-test $gfortran_test_path/[lindex $args 1] "" $gfortran_aux_module_flags |
6278a9a2 | 49 | # cleanup-modules is intentionally not invoked here. |
50 | ||
51 | if { [info procs dg-save-unknown-level-$level] != [list] } { | |
52 | rename dg-save-unknown-level-$level dg-save-unknown | |
53 | } | |
9b8ec2f3 | 54 | } |
55 | ||
efcf9077 | 56 | # Main loop. |
a189675f | 57 | gfortran-dg-runtest [lsort \ |
faff04c3 | 58 | [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ] ] "" $DEFAULT_FFLAGS |
45495fdc | 59 | |
a189675f | 60 | gfortran-dg-runtest [lsort \ |
faff04c3 | 61 | [glob -nocomplain $srcdir/$subdir/g77/*.\[fF\] ] ] "" $DEFAULT_FFLAGS |
45495fdc | 62 | |
efcf9077 | 63 | |
64 | # All done. | |
65 | dg-finish |