blob: 99689a29956155977c0ca320cc7b18576ade87d1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# GCC testsuite that uses the `dg.exp' driver.
# Load support procs.
load_lib gfortran-dg.exp
if ![check_effective_target_fopenmp] {
return
}
# Initialize `dg'.
dg-init
# Main loop.
gfortran-dg-runtest [lsort \
[find $srcdir/$subdir *.\[fF\]{,90,95} ] ] " -fopenmp"
# All done.
dg-finish
|
