Mercurial > hg > CbC > CbC_gcc
comparison 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 |
comparison
equal
deleted
inserted
replaced
52:c156f1bd5cd9 | 55:77e2b8dfacca |
---|---|
1 load_lib libgomp-dg.exp | |
2 | |
3 global shlib_ext | |
4 | |
5 set shlib_ext [get_shlib_extension] | |
1 set lang_library_path "../libgfortran/.libs" | 6 set lang_library_path "../libgfortran/.libs" |
2 set lang_link_flags "-lgfortranbegin -lgfortran" | 7 set lang_link_flags "-lgfortran" |
3 set lang_test_file_found 0 | 8 set lang_test_file_found 0 |
4 | 9 |
5 load_lib libgomp-dg.exp | |
6 | 10 |
7 # Initialize dg. | 11 # Initialize dg. |
8 dg-init | 12 dg-init |
9 | 13 |
10 if { $blddir != "" } { | 14 if { $blddir != "" } { |
11 if [file exists "${blddir}/${lang_library_path}/libgfortranbegin.a"] { | 15 # Look for a static libgfortran first. |
12 set lang_test_file "${lang_library_path}/libgfortranbegin.a" | 16 if [file exists "${blddir}/${lang_library_path}/libgfortran.a"] { |
17 set lang_test_file "${lang_library_path}/libgfortran.a" | |
18 set lang_test_file_found 1 | |
19 # We may have a shared only build, so look for a shared libgfortran. | |
20 } elseif [file exists "${blddir}/${lang_library_path}/libgfortran.${shlib_ext}"] { | |
21 set lang_test_file "${lang_library_path}/libgfortran.${shlib_ext}" | |
13 set lang_test_file_found 1 | 22 set lang_test_file_found 1 |
14 } else { | 23 } else { |
15 puts "No libgfortranbegin library found, will not execute fortran tests" | 24 puts "No libgfortran library found, will not execute fortran tests" |
16 } | 25 } |
17 } elseif [info exists GFORTRAN_UNDER_TEST] { | 26 } elseif [info exists GFORTRAN_UNDER_TEST] { |
18 set lang_test_file_found 1 | 27 set lang_test_file_found 1 |
19 # Needs to exist for libgomp.exp. | 28 # Needs to exist for libgomp.exp. |
20 set lang_test_file "" | 29 set lang_test_file "" |