libgomp/testsuite/libgomp.fortran/fortran.exp

   1 load_lib libgomp-dg.exp
   2 load_gcc_lib gcc-dg.exp
   3 load_gcc_lib gfortran-dg.exp
   4
   5 global shlib_ext
   6 global ALWAYS_CFLAGS
   7
   8 set shlib_ext [get_shlib_extension]
   9 set lang_library_path   "../libgfortran/.libs"
  10 set lang_link_flags     "-lgfortran"
  11 set lang_test_file_found 0
  12 set quadmath_library_path "../libquadmath/.libs"
  13
  14
  15 # Initialize dg.
  16 dg-init
  17
  18 # Turn on OpenMP.
  19 lappend ALWAYS_CFLAGS "additional_flags=-fopenmp"
  20
  21 if { $blddir != "" } {
  22     lappend ALWAYS_CFLAGS "additional_flags=-fintrinsic-modules-path=${blddir}"
  23     # Look for a static libgfortran first.
  24     if [file exists "${blddir}/${lang_library_path}/libgfortran.a"] {
  25         set lang_test_file "${lang_library_path}/libgfortran.a"
  26         set lang_test_file_found 1
  27         # We may have a shared only build, so look for a shared libgfortran.
  28     } elseif [file exists "${blddir}/${lang_library_path}/libgfortran.${shlib_ext}"] {
  29         set lang_test_file "${lang_library_path}/libgfortran.${shlib_ext}"
  30         set lang_test_file_found 1
  31     } else {
  32         puts "No libgfortran library found, will not execute fortran tests"
  33     }
  34 } elseif [info exists GFORTRAN_UNDER_TEST] {
  35     set lang_test_file_found 1
  36     # Needs to exist for libgomp.exp.
  37     set lang_test_file ""
  38 } else {
  39     puts "GFORTRAN_UNDER_TEST not defined, will not execute fortran tests"
  40 }
  41
  42 if { $lang_test_file_found } {
  43     # Gather a list of all tests.
  44     set tests [lsort [find $srcdir/$subdir *.\[fF\]{,90,95,03,08}]]
  45
  46     if { $blddir != "" } {
  47         if { [file exists "${blddir}/${quadmath_library_path}/libquadmath.a"]
  48              || [file exists "${blddir}/${quadmath_library_path}/libquadmath.${shlib_ext}"] } {
  49             lappend ALWAYS_CFLAGS "ldflags=-L${blddir}/${quadmath_library_path}/"
  50             # Allow for spec subsitution.
  51             lappend ALWAYS_CFLAGS "additional_flags=-B${blddir}/${quadmath_library_path}/"
  52             set ld_library_path "$always_ld_library_path:${blddir}/${lang_library_path}:${blddir}/${quadmath_library_path}"
  53         } else {
  54             set ld_library_path "$always_ld_library_path:${blddir}/${lang_library_path}"
  55         }
  56     } else {
  57         set ld_library_path "$always_ld_library_path"
  58     }
  59     append ld_library_path [gcc-set-multilib-library-path $GCC_UNDER_TEST]
  60     set_ld_library_path_env_vars
  61
  62     # Main loop.
  63     gfortran-dg-runtest $tests ""
  64 }
  65
  66 # All done.
  67 dg-finish