static_hello.f95 295 B

123456789101112131415161718
  1. module static_hello
  2. implicit none
  3. private
  4. public :: static_say_hello
  5. interface static_say_hello
  6. module procedure say_hello
  7. end interface static_say_hello
  8. contains
  9. subroutine say_hello
  10. print *, "Static library called."
  11. end subroutine say_hello
  12. end module static_hello