• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1! RUN: %S/test_modfile.sh %s %t %f18
2! Check modfile generation for external interface
3module m
4  interface
5    integer function f(x)
6    end function
7    subroutine s(y, z)
8      logical y
9      complex z
10    end subroutine
11  end interface
12end
13
14!Expect: m.mod
15!module m
16! interface
17!  function f(x)
18!   real(4)::x
19!   integer(4)::f
20!  end
21! end interface
22! interface
23!  subroutine s(y,z)
24!   logical(4)::y
25!   complex(4)::z
26!  end
27! end interface
28!end
29