max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-15 16:18:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed for x64

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@6362 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2012-04-05 03:37:13 +00:00
parent 1b7820690b
commit 72544fab0a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test_f90.f90
View File

@ -135,14 +135,14 @@ FUNCTION TestGetSet(id,getFunc,setFunc)
INTEGER(KIND=4) TestGetSet
INTERFACE
FUNCTION getFunc(id)
INTEGER(KIND=4) id
INTEGER(KIND=4), INTENT(in) :: id
LOGICAL(KIND=4) getFunc
END FUNCTION getFunc
END INTERFACE
INTERFACE
FUNCTION setFunc(id,flag)
INTEGER(KIND=4) id
LOGICAL(KIND=4) flag
INTEGER(KIND=4), INTENT(in) :: id
LOGICAL(KIND=4), INTENT(in) :: flag
INTEGER(KIND=4) setFunc
END FUNCTION setFunc
END INTERFACE