diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-03-23 14:25:05 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-03-23 14:25:05 (GMT) |
| commit | 3682dd9ae06c20eea700994e0b4c49c3e29b1448 (patch) | |
| tree | 548159c9b95a27cfb792b7462da147b0e0a768aa /hl/fortran/test/tstlite.f90 | |
| parent | 38a1ea7b99f61d07b667c6772ea6e998a7327013 (diff) | |
| download | hdf5-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)
Diffstat (limited to 'hl/fortran/test/tstlite.f90')
| -rw-r--r-- | hl/fortran/test/tstlite.f90 | 2 |
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() |