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 hppa*-*-hpux*] } {
  12     return
  13 }
  14
  15 if { [istarget "powerpc-ibm-aix*"] } {
  16     set torture_execute_xfail "powerpc-ibm-aix*"
  17     return
  18 }
  19
  20 dg-init
  21
  22 global GDB
  23 if ![info exists ::env(GUALITY_GDB_NAME)] {
  24     if [info exists GDB] {
  25         set guality_gdb_name "$GDB"
  26     } elseif { [info exists rootme] && [file exists $rootme/../gdb/gdb] } {
  27         # If we're doing a combined build, and gdb is available, use it.
  28         set guality_gdb_name "$rootme/../gdb/gdb"
  29     } else {
  30         set guality_gdb_name "[transform gdb]"
  31     }
  32     setenv GUALITY_GDB_NAME "$guality_gdb_name"
  33 }
  34 report_gdb $::env(GUALITY_GDB_NAME) [info script]
  35
  36 global DG_TORTURE_OPTIONS
  37 set guality_dg_torture_options [guality_minimal_options $DG_TORTURE_OPTIONS]
  38 torture-init
  39 set-torture-options \
  40     $guality_dg_torture_options \
  41
  42 gfortran-dg-runtest [lsort [glob $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ]] "" ""
  43
  44 if [info exists guality_gdb_name] {
  45     unsetenv GUALITY_GDB_NAME
  46 }
  47
  48 torture-finish
  49 dg-finish