subroutine test_fort() print *,'In test_fort() -- 1' print *,'In test_fort() -- 2' print *,'In test_fort() -- 3' return end