mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-04-24 17:51:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r23297] Temporary fix: PGI COMPILERS seem to have a bug in the INQUIRE function,

Browse Source 
waiting for an answer from PGI how to resolve the problem.

Tested: jam (pgi compiler)
This commit is contained in:
Scot Breitenfeld 2013-02-18 10:28:36 -05:00
parent 2ec529c035
commit f3da4919c4
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/test/tH5F_F03.f90
View File

@ -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)