subroutine F2() implicit none print *, "Inside f2()" end subroutine F2