2015-08-30 22:13:48 +08:00
|
|
|
module dynamic
|
2019-01-28 02:57:21 +08:00
|
|
|
implicit none
|
2015-08-30 22:13:48 +08:00
|
|
|
|
2019-01-28 02:57:21 +08:00
|
|
|
private
|
|
|
|
|
public :: hello
|
2015-08-30 22:13:48 +08:00
|
|
|
|
2019-01-28 02:57:21 +08:00
|
|
|
interface hello
|
|
|
|
|
module procedure say
|
|
|
|
|
end interface hello
|
2015-08-30 22:13:48 +08:00
|
|
|
|
|
|
|
|
contains
|
|
|
|
|
|
2019-01-28 02:57:21 +08:00
|
|
|
subroutine say
|
|
|
|
|
print *, "Hello from shared library."
|
|
|
|
|
end subroutine say
|
2015-08-30 22:13:48 +08:00
|
|
|
|
|
|
|
|
end module dynamic
|
