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