test cases/fortran/5 static/static_hello.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

module static_hello
implicit none

private
public :: static_say_hello

interface static_say_hello
  module procedure say_hello
end interface static_say_hello

contains

subroutine say_hello
  print *, "Static library called."
end subroutine say_hello

end module static_hello