gcc/testsuite/gfortran.dg/gomp/gomp.exp

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