From f3da4919c491d84b58be74fd90837c391b37fc7c Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Mon, 18 Feb 2013 10:28:36 -0500
Subject: [svn-r23297] Temporary fix: PGI COMPILERS seem to have a bug in the
 INQUIRE function,                waiting for an answer from PGI how to
 resolve the problem.

Tested: jam (pgi compiler)
---
 fortran/test/tH5F_F03.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/fortran/test/tH5F_F03.f90 b/fortran/test/tH5F_F03.f90
index 4484144..dea9a5d 100644
--- a/fortran/test/tH5F_F03.f90
+++ b/fortran/test/tH5F_F03.f90
@@ -62,6 +62,10 @@ SUBROUTINE test_get_file_image(total_error)
   INTEGER(hid_t) :: fapl          ! File access property
   INTEGER :: error                ! Error flag
 
+
+  RETURN ! DEBUG, PGI COMPILERS seem to have a bug in the INQUIRE functions,
+         ! waiting for an answer from PGI how to resolve the problem.
+
   ! Create new properties for file access
   CALL h5pcreate_f(H5P_FILE_ACCESS_F, fapl, error)
   CALL check("h5pcreate_f", error, total_error)
-- 
cgit v0.12