Mercurial > hg > CbC > CbC_gcc
annotate libgomp/testsuite/libgomp.fortran/fortran.exp @ 55:77e2b8dfacca gcc-4.4.5
update it from 4.4.3 to 4.5.0
| author | ryoma <e075725@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Fri, 12 Feb 2010 23:39:51 +0900 |
| parents | a06113de4d67 |
| children | f6334be47118 |
| rev | line source |
|---|---|
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
1 load_lib libgomp-dg.exp |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
2 |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
3 global shlib_ext |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
4 |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
5 set shlib_ext [get_shlib_extension] |
| 0 | 6 set lang_library_path "../libgfortran/.libs" |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
7 set lang_link_flags "-lgfortran" |
| 0 | 8 set lang_test_file_found 0 |
| 9 | |
| 10 | |
| 11 # Initialize dg. | |
| 12 dg-init | |
| 13 | |
| 14 if { $blddir != "" } { | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
15 # Look for a static libgfortran first. |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
16 if [file exists "${blddir}/${lang_library_path}/libgfortran.a"] { |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
17 set lang_test_file "${lang_library_path}/libgfortran.a" |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
18 set lang_test_file_found 1 |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
19 # We may have a shared only build, so look for a shared libgfortran. |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
20 } elseif [file exists "${blddir}/${lang_library_path}/libgfortran.${shlib_ext}"] { |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
21 set lang_test_file "${lang_library_path}/libgfortran.${shlib_ext}" |
| 0 | 22 set lang_test_file_found 1 |
| 23 } else { | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
24 puts "No libgfortran library found, will not execute fortran tests" |
| 0 | 25 } |
| 26 } elseif [info exists GFORTRAN_UNDER_TEST] { | |
| 27 set lang_test_file_found 1 | |
| 28 # Needs to exist for libgomp.exp. | |
| 29 set lang_test_file "" | |
| 30 } else { | |
| 31 puts "GFORTRAN_UNDER_TEST not defined, will not execute fortran tests" | |
| 32 } | |
| 33 | |
| 34 if { $lang_test_file_found } { | |
| 35 # Gather a list of all tests. | |
| 36 set tests [lsort [find $srcdir/$subdir *.\[fF\]{,90,95,03,08}]] | |
| 37 | |
| 38 if { $blddir != "" } { | |
| 39 set ld_library_path "$always_ld_library_path:${blddir}/${lang_library_path}" | |
| 40 } else { | |
| 41 set ld_library_path "$always_ld_library_path" | |
| 42 } | |
| 43 append ld_library_path [gcc-set-multilib-library-path $GCC_UNDER_TEST] | |
| 44 set_ld_library_path_env_vars | |
| 45 | |
| 46 # Main loop. | |
| 47 gfortran-dg-runtest $tests "" | |
| 48 } | |
| 49 | |
| 50 # All done. | |
| 51 dg-finish |