flang/test/Semantics/modfile50.f90

   1 ! RUN: %python %S/test_modfile.py %s %flang_fc1
   2 module m1
   3   interface foo
   4     module procedure foo
   5   end interface
   6  contains
   7   subroutine foo
   8   end subroutine
   9 end module
  10 module m2
  11   use m1, bar => foo
  12   interface baz
  13     module procedure bar ! must not be replaced in module file with "foo"
  14   end interface
  15 end module
  16
  17 !Expect: m1.mod
  18 !module m1
  19 !interface foo
  20 !procedure::foo
  21 !end interface
  22 !contains
  23 !subroutine foo()
  24 !end
  25 !end
  26
  27 !Expect: m2.mod
  28 !module m2
  29 !use m1,only:bar=>foo
  30 !interface baz
  31 !procedure::bar
  32 !end interface
  33 !end