subroutine sub(num)
      implicit none
      integer num
      end

      program prog
      call sub(1)
      end