      subroutine sub(

     1  x)
        integer x
      end
      subroutine sub1(
C comment
     1  x)
        integer x
      end
      subroutine sub_ok(
     1  x)
        integer x
      end
