PROGRAM test_f77
      IMPLICIT NONE
      INTEGER(KIND=4) F_MAIN
      INTEGER(KIND=4) I
      I = F_MAIN()
      END PROGRAM test_f77