test/Fortran/gfortran.py

   1 #!/usr/bin/env python
   2 #
   3 # MIT License
   4 #
   5 # Copyright The SCons Foundation
   6 #
   7 # Permission is hereby granted, free of charge, to any person obtaining
   8 # a copy of this software and associated documentation files (the
   9 # "Software"), to deal in the Software without restriction, including
  10 # without limitation the rights to use, copy, modify, merge, publish,
  11 # distribute, sublicense, and/or sell copies of the Software, and to
  12 # permit persons to whom the Software is furnished to do so, subject to
  13 # the following conditions:
  14 #
  15 # The above copyright notice and this permission notice shall be included
  16 # in all copies or substantial portions of the Software.
  17 #
  18 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY
  19 # KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
  20 # WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  21 # NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  22 # LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  23 # OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  24 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  25
  26 """
  27 Verify that the gfortran tool compiles a .f90 file to an executable,
  28 one time with and one time without placing module files in a subdirectory
  29 specified by FORTRANMODDIR.
  30 """
  31
  32 import TestSCons
  33
  34 test = TestSCons.TestSCons()
  35
  36 _exe = TestSCons._exe
  37
  38 gfortran = test.detect_tool('gfortran')
  39
  40 if not gfortran:
  41     test.skip_test("Could not find gfortran tool, skipping test.\n")
  42
  43 test.write('SConstruct', """
  44 env = Environment(tools=['gfortran','link'])
  45 env.Program('test1', 'test1.f90')
  46 """)
  47
  48 test.write('test1.f90', """\
  49 module test1mod
  50   implicit none
  51   contains
  52   subroutine hello
  53     implicit none
  54     print *, "hello"
  55   end subroutine hello
  56 end module test1mod
  57 program main
  58   use test1mod
  59   implicit none
  60   call hello()
  61 end program main
  62 """)
  63
  64 test.run(arguments = '.')
  65
  66 test.must_exist('test1' + _exe)
  67 test.must_exist('test1mod.mod')
  68
  69 test.up_to_date(arguments = '.')
  70
  71
  72 test.write('SConstruct', """
  73 env = Environment(tools=['gfortran','link'], F90PATH='modules', FORTRANMODDIR='modules')
  74 env.Program('test2', 'test2.f90')
  75 """)
  76
  77 test.write('test2.f90', """\
  78 module test2mod
  79   implicit none
  80   contains
  81   subroutine hello
  82     implicit none
  83     print *, "hello"
  84   end subroutine hello
  85 end module test2mod
  86 program main
  87   use test2mod
  88   implicit none
  89   call hello()
  90 end program main
  91 """)
  92
  93 test.run(arguments = '.')
  94
  95 test.must_exist('test2' + _exe)
  96 test.must_exist(['modules', 'test2mod.mod'])
  97
  98 test.up_to_date(arguments = '.')
  99
 100
 101 # Now test if shared library build works.
 102 test.file_fixture('fixture/gfortran_shared.f')
 103 test.file_fixture('fixture/SConstruct_gfortran_shared')
 104 test.run(arguments = '-f SConstruct_gfortran_shared')
 105 test.fail_test('gfortran ' not in test.stdout(), message="SCons didn't use gfortran")
 106
 107
 108 test.pass_test()
 109
 110 # Local Variables:
 111 # tab-width:4
 112 # indent-tabs-mode:nil
 113 # End:
 114 # vim: set expandtab tabstop=4 shiftwidth=4: