diff options
Diffstat (limited to 'test/Fortran/F90COM.py')
| -rw-r--r-- | test/Fortran/F90COM.py | 52 |
1 files changed, 3 insertions, 49 deletions
diff --git a/test/Fortran/F90COM.py b/test/Fortran/F90COM.py index 7a206da..1b33c73 100644 --- a/test/Fortran/F90COM.py +++ b/test/Fortran/F90COM.py @@ -29,48 +29,14 @@ import string import sys import TestSCons +from common import write_fake_link + _python_ = TestSCons._python_ _exe = TestSCons._exe test = TestSCons.TestSCons() - - -if sys.platform == 'win32': - - test.write('mylink.py', r""" -import string -import sys -args = sys.argv[1:] -while args: - a = args[0] - if a[0] != '/': - break - args = args[1:] - if string.lower(a[:5]) == '/out:': out = a[5:] -infile = open(args[0], 'rb') -outfile = open(out, 'wb') -for l in infile.readlines(): - if l[:5] != '#link': - outfile.write(l) -sys.exit(0) -""") - -else: - - test.write('mylink.py', r""" -import getopt -import sys -opts, args = getopt.getopt(sys.argv[1:], 'o:') -for opt, arg in opts: - if opt == '-o': out = arg -infile = open(args[0], 'rb') -outfile = open(out, 'wb') -for l in infile.readlines(): - if l[:5] != '#link': - outfile.write(l) -sys.exit(0) -""") +write_fake_link(test) test.write('myfortran.py', r""" import sys @@ -98,12 +64,8 @@ env.Program(target = 'test05', source = 'test05.ftn') env.Program(target = 'test06', source = 'test06.FTN') env.Program(target = 'test07', source = 'test07.fpp') env.Program(target = 'test08', source = 'test08.FPP') -env.Program(target = 'test09', source = 'test09.f77') -env.Program(target = 'test10', source = 'test10.F77') env.Program(target = 'test11', source = 'test11.f90') env.Program(target = 'test12', source = 'test12.F90') -env.Program(target = 'test13', source = 'test13.f95') -env.Program(target = 'test14', source = 'test14.F95') env2 = Environment(LINK = r'%(_python_)s mylink.py', LINKFLAGS = [], F90COM = r'%(_python_)s myfortran.py f90 $TARGET $SOURCES', @@ -120,12 +82,8 @@ test.write('test05.ftn', "This is a .ftn file.\n#link\n#fortran\n") test.write('test06.FTN', "This is a .FTN file.\n#link\n#fortranpp\n") test.write('test07.fpp', "This is a .fpp file.\n#link\n#fortranpp\n") test.write('test08.FPP', "This is a .FPP file.\n#link\n#fortranpp\n") -test.write('test09.f77', "This is a .f77 file.\n#link\n#fortran\n") -test.write('test10.F77', "This is a .F77 file.\n#link\n#fortranpp\n") test.write('test11.f90', "This is a .f90 file.\n#link\n#f90\n") test.write('test12.F90', "This is a .F90 file.\n#link\n#f90pp\n") -test.write('test13.f95', "This is a .f95 file.\n#link\n#fortran\n") -test.write('test14.F95', "This is a .F95 file.\n#link\n#fortranpp\n") test.write('test21.f90', "This is a .f90 file.\n#link\n#f90\n") test.write('test22.F90', "This is a .F90 file.\n#link\n#f90pp\n") @@ -140,12 +98,8 @@ test.must_match('test05' + _exe, "This is a .ftn file.\n") test.must_match('test06' + _exe, "This is a .FTN file.\n") test.must_match('test07' + _exe, "This is a .fpp file.\n") test.must_match('test08' + _exe, "This is a .FPP file.\n") -test.must_match('test09' + _exe, "This is a .f77 file.\n") -test.must_match('test10' + _exe, "This is a .F77 file.\n") test.must_match('test11' + _exe, "This is a .f90 file.\n") test.must_match('test12' + _exe, "This is a .F90 file.\n") -test.must_match('test13' + _exe, "This is a .f95 file.\n") -test.must_match('test14' + _exe, "This is a .F95 file.\n") test.must_match('test21' + _exe, "This is a .f90 file.\n") test.must_match('test22' + _exe, "This is a .F90 file.\n") |