summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5F_F03.f90
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2014-01-08 20:21:32 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2014-01-08 20:21:32 (GMT)
commitd4d0407a870b0900abeb4a40bac258362b95a5a5 (patch)
treea1281ee9e1005230cafe0b07ad1f6606ca29b7a7 /fortran/test/tH5F_F03.f90
parentd8b13f60ff7caf7df95f820b494e3f5e41a69be5 (diff)
downloadhdf5-d4d0407a870b0900abeb4a40bac258362b95a5a5.zip
hdf5-d4d0407a870b0900abeb4a40bac258362b95a5a5.tar.gz
hdf5-d4d0407a870b0900abeb4a40bac258362b95a5a5.tar.bz2
[svn-r24623] Enabled test for
HDFFV-8268 Fortran wrapper for H5Fget_file_image function Tested: jam (pgi compilers) h5committest
Diffstat (limited to 'fortran/test/tH5F_F03.f90')
-rw-r--r--fortran/test/tH5F_F03.f908
1 files changed, 2 insertions, 6 deletions
diff --git a/fortran/test/tH5F_F03.f90 b/fortran/test/tH5F_F03.f90
index dea9a5d..79b0458 100644
--- a/fortran/test/tH5F_F03.f90
+++ b/fortran/test/tH5F_F03.f90
@@ -62,10 +62,6 @@ 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)
@@ -151,9 +147,9 @@ SUBROUTINE test_get_file_image(total_error)
ALLOCATE(file_image_ptr(1:image_size))
! Open the test file using standard I/O calls
- OPEN(UNIT=10,FILE='tget_file_image.h5', ACCESS='STREAM')
+ OPEN(UNIT=10,FILE='tget_file_image.h5', FORM='UNFORMATTED', ACCESS='STREAM')
- ! Read the test file from disk into the buffer
+ ! Read the test file from disk into the buffer
DO i = 1, image_size
READ(10) file_image_ptr(i)
ENDDO