!  main.f90 
!
!  FUNCTIONS:
!  main - Entry point of console application.
!

!****************************************************************************
!
!  PROGRAM: test_f90
!
!  PURPOSE:  Entry point for the console application.
!
!****************************************************************************

    program test_f90

    implicit none
    
    integer(KIND=4) F_MAIN
    integer(KIND=4) I
    
    I = F_MAIN()

    end program test_f90