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     } elseif [file exists $rootme/../gdb/gdb] {
  23         # If we're doing a combined build, and gdb is available, use it.
  24         set guality_gdb_name "$rootme/../gdb/gdb"
  25     } else {
  26         set guality_gdb_name "[transform gdb]"
  27     }
  28     setenv GUALITY_GDB_NAME "$guality_gdb_name"
  29 }
  30 report_gdb [exec which $::env(GUALITY_GDB_NAME)] [info script]
  31
  32 gfortran-dg-runtest [lsort [glob $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ]] "" ""
  33
  34 if [info exists guality_gdb_name] {
  35     unsetenv GUALITY_GDB_NAME
  36 }
  37
  38 dg-finish