diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2013-02-18 15:28:36 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2013-02-18 15:28:36 (GMT) |
| commit | f3da4919c491d84b58be74fd90837c391b37fc7c (patch) | |
| tree | 90ea2b855e4e2ed6487850fa874bcb5650916c50 /fortran | |
| parent | 2ec529c0355edd272e8c17a14bb7c3d6b888091e (diff) | |
| download | hdf5-f3da4919c491d84b58be74fd90837c391b37fc7c.zip hdf5-f3da4919c491d84b58be74fd90837c391b37fc7c.tar.gz hdf5-f3da4919c491d84b58be74fd90837c391b37fc7c.tar.bz2 | |
[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)
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/test/tH5F_F03.f90 | 4 |
1 files changed, 4 insertions, 0 deletions
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) |