test cases/fortran/6 dynamic/dynamic.f90


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

module dynamic
implicit none

private
public :: hello

interface hello
  module procedure say
end interface hello

contains

subroutine say
  print *, "Hello from shared library."
end subroutine say

end module dynamic