gcc/testsuite/gfortran.dg/guality/guality.exp

   1 # This harness is for tests that should be run at all optimisation levels.
   2
   3 load_lib gfortran-dg.exp
   4 load_lib gcc-gdb-test.exp
   5
   6 # Disable on darwin until radr://7264615 is resolved.
   7 # Disable on Tru64 UNIX (PR testsuite/48251).
   8 if { [istarget *-*-darwin*] || [istarget alpha*-dec-osf*] } {
   9   return
  10 }
  11
  12 dg-init
  13
  14 global GDB
  15 if ![info exists ::env(GUALITY_GDB_NAME)] {
  16     if [info exists GDB] {
  17         set guality_gdb_name "$GDB"
  18     } else {
  19         set guality_gdb_name "[transform gdb]"
  20     }
  21     setenv GUALITY_GDB_NAME "$guality_gdb_name"
  22 }
  23
  24 gfortran-dg-runtest [lsort [glob $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ]] ""
  25
  26 if [info exists guality_gdb_name] {
  27     unsetenv GUALITY_GDB_NAME
  28 }
  29
  30 dg-finish