summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2012-03-23 14:25:05 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2012-03-23 14:25:05 (GMT)
commit3682dd9ae06c20eea700994e0b4c49c3e29b1448 (patch)
tree548159c9b95a27cfb792b7462da147b0e0a768aa
parent38a1ea7b99f61d07b667c6772ea6e998a7327013 (diff)
downloadhdf5-3682dd9ae06c20eea700994e0b4c49c3e29b1448.zip
hdf5-3682dd9ae06c20eea700994e0b4c49c3e29b1448.tar.gz
hdf5-3682dd9ae06c20eea700994e0b4c49c3e29b1448.tar.bz2
[svn-r22133] Description: fixed problem with closing a non-existing file id.
Tested: koala (gnu 4.1)
-rw-r--r--hl/fortran/test/tstlite.f902
1 files changed, 1 insertions, 1 deletions
diff --git a/hl/fortran/test/tstlite.f90 b/hl/fortran/test/tstlite.f90
index 50be69e..0b5a138 100644
--- a/hl/fortran/test/tstlite.f90
+++ b/hl/fortran/test/tstlite.f90
@@ -1561,7 +1561,7 @@ SUBROUTINE test_attributes()
!!$ STOP
!!$ ENDIF
- CALL h5fclose_f(file_id1, errcode)
+!!$ CALL h5fclose_f(file_id1, errcode)
CALL passed()