subroutine sub3() implicit none print *,'Sub3' end subroutine sub3