module test1 contains subroutine hello(n) integer :: n write(*,*) "hello world. The secret number is ",n return end end module test1