subroutine sub5() implicit none print *,'Sub5' end subroutine sub5