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