# 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,03} ] ] " -fopenmp"

# All done.
dg-finish