1set lang_library_path "../libgfortran/.libs" 2set lang_test_file "${lang_library_path}/libgfortranbegin.a" 3set lang_link_flags "-lgfortranbegin -lgfortran" 4 5load_lib libgomp-dg.exp 6 7# Initialize dg. 8dg-init 9 10if [file exists "${blddir}/${lang_test_file}"] { 11 12 # Gather a list of all tests. 13 set tests [lsort [find $srcdir/$subdir *.\[fF\]{,90,95,03}]] 14 15 # Main loop. 16 gfortran-dg-runtest $tests "" 17} 18 19# All done. 20dg-finish 21