diff options
Diffstat (limited to 'test/Fortran/F77FLAGS.py')
| -rw-r--r-- | test/Fortran/F77FLAGS.py | 75 |
1 files changed, 11 insertions, 64 deletions
diff --git a/test/Fortran/F77FLAGS.py b/test/Fortran/F77FLAGS.py index cd25167..a358507 100644 --- a/test/Fortran/F77FLAGS.py +++ b/test/Fortran/F77FLAGS.py @@ -29,46 +29,14 @@ import string import sys import TestSCons +from common import write_fake_link + _python_ = TestSCons._python_ test = TestSCons.TestSCons() _exe = TestSCons._exe -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('myg77.py', r""" import getopt @@ -94,46 +62,21 @@ env = Environment(LINK = r'%(_python_)s mylink.py', LINKFLAGS = [], F77 = r'%(_python_)s myg77.py', F77FLAGS = '-x') -env.Program(target = 'test01', source = 'test01.f') -env.Program(target = 'test02', source = 'test02.F') -env.Program(target = 'test03', source = 'test03.for') -env.Program(target = 'test04', source = 'test04.FOR') -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') """ % locals()) -test.write('test01.f', "This is a .f file.\n#link\n#g77\n") -test.write('test02.F', "This is a .F file.\n#link\n#g77\n") -test.write('test03.for', "This is a .for file.\n#link\n#g77\n") -test.write('test04.FOR', "This is a .FOR file.\n#link\n#g77\n") -test.write('test05.ftn', "This is a .ftn file.\n#link\n#g77\n") -test.write('test06.FTN', "This is a .FTN file.\n#link\n#g77\n") -test.write('test07.fpp', "This is a .fpp file.\n#link\n#g77\n") -test.write('test08.FPP', "This is a .FPP file.\n#link\n#g77\n") test.write('test09.f77', "This is a .f77 file.\n#link\n#g77\n") test.write('test10.F77', "This is a .F77 file.\n#link\n#g77\n") test.run(arguments = '.', stderr = None) -test.must_match('test01' + _exe, " -c -x\nThis is a .f file.\n") -test.must_match('test02' + _exe, " -c -x\nThis is a .F file.\n") -test.must_match('test03' + _exe, " -c -x\nThis is a .for file.\n") -test.must_match('test04' + _exe, " -c -x\nThis is a .FOR file.\n") -test.must_match('test05' + _exe, " -c -x\nThis is a .ftn file.\n") -test.must_match('test06' + _exe, " -c -x\nThis is a .FTN file.\n") -test.must_match('test07' + _exe, " -c -x\nThis is a .fpp file.\n") -test.must_match('test08' + _exe, " -c -x\nThis is a .FPP file.\n") test.must_match('test09' + _exe, " -c -x\nThis is a .f77 file.\n") test.must_match('test10' + _exe, " -c -x\nThis is a .F77 file.\n") - -g77 = test.detect('F77', 'g77') -FTN_LIB = TestSCons.fortran_lib +fc = 'f77' +g77 = test.detect_tool(fc) if g77: @@ -146,7 +89,7 @@ os.system(string.join(sys.argv[1:], " ")) """ % string.replace(test.workpath('wrapper.out'), '\\', '\\\\')) test.write('SConstruct', """ -foo = Environment(LIBS = %FTN_LIBs) +foo = Environment(F77 = '%(fc)s', tools = ['default', 'f77'], F77FILESUFFIXES = [".f"]) f77 = foo.Dictionary('F77') bar = foo.Clone(F77 = r'%(_python_)s wrapper.py ' + f77, F77FLAGS = '-Ix') foo.Program(target = 'foo', source = 'foo.f') @@ -174,7 +117,11 @@ bar.Program(target = 'bar', source = 'bar.f') test.must_not_exist('wrapper.out') - test.run(arguments = 'bar' + _exe) + import sys + if sys.platform[:5] == 'sunos': + test.run(arguments = 'bar' + _exe, stderr = None) + else: + test.run(arguments = 'bar' + _exe) test.run(program = test.workpath('bar'), stdout = " bar.f\n") |