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 if { [istarget *-*-darwin*] } {
   8   return
   9 }
  10
  11 dg-init
  12
  13 global GDB
  14 if ![info exists ::env(GUALITY_GDB_NAME)] {
  15     if [info exists GDB] {
  16         set guality_gdb_name "$GDB"
  17     } else {
  18         set guality_gdb_name "[transform gdb]"
  19     }
  20     setenv GUALITY_GDB_NAME "$guality_gdb_name"
  21 }
  22
  23 gfortran-dg-runtest [lsort [glob $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ]] ""
  24
  25 if [info exists guality_gdb_name] {
  26     unsetenv GUALITY_GDB_NAME
  27 }
  28
  29 dg-finish