1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
module main_lib use static_hello implicit none private public :: main_hello contains subroutine main_hello call static_say_hello() print *, "Main hello routine finished." end subroutine main_hello end module main_lib