iphreeqc/tests/main77.f
Scott R Charlton 5d19f28a86 added project for f77 test
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4367 1feff8c3-07ed-0310-ac33-dd36852eb9cd
2010-05-11 02:22:28 +00:00

6 lines
146 B
Fortran

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