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

added additional Get test to TestGetSet

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@10284 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2015-09-18 06:17:09 +00:00
parent 6512928772
commit 0ac279c652
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test_f90.F90
View File

@ -181,6 +181,12 @@ FUNCTION TestGetSet(id,getFunc,setFunc)
WRITE(*,*) "FAILURE"
RETURN
END IF
IF (getFunc(id)) THEN
TestGetSet = EXIT_FAILURE
WRITE(*,*) "FAILURE"
RETURN
END IF
TestGetSet = EXIT_SUCCESS
RETURN