mycaller.f (examples/mycaller.f)

     1
     2
     3
     4
     5
     6
     7

      PROGRAM MYCALLER

      EXTERNAL MYSUBR

      CALL MYSUBR(3)

      END