From 3682dd9ae06c20eea700994e0b4c49c3e29b1448 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Fri, 23 Mar 2012 09:25:05 -0500
Subject: [svn-r22133] Description: fixed problem with closing a non-existing
 file id.

Tested: koala (gnu 4.1)
---
 hl/fortran/test/tstlite.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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()
 
-- 
cgit v0.12