diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-03-27 22:10:24 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-03-27 22:10:24 (GMT) |
| commit | d494d7b3b95cf893e6dd20688057bb13ba10422f (patch) | |
| tree | 29c88f6ef8fa297609b96b08fa3bd1857b5abdd7 /fortran/test/tf.f90 | |
| parent | b96e13a7e3476e86056a1c5424288b50001b0453 (diff) | |
| download | hdf5-d494d7b3b95cf893e6dd20688057bb13ba10422f.zip hdf5-d494d7b3b95cf893e6dd20688057bb13ba10422f.tar.gz hdf5-d494d7b3b95cf893e6dd20688057bb13ba10422f.tar.bz2 | |
[svn-r26629] Fix for HDFFV09202 and HDFFV-9171.
HDFFV-9171 Configure mistakes Cray Compilers for Intel Compilers,
HDFFV-9202 subroutine VERIFY() fails when checking 8 byte integers in fortran tests
Tested: h5committest
Diffstat (limited to 'fortran/test/tf.f90')
| -rw-r--r-- | fortran/test/tf.f90 | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90 index 6d5911f..242d757 100644 --- a/fortran/test/tf.f90 +++ b/fortran/test/tf.f90 @@ -134,20 +134,19 @@ CONTAINS !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_TEST_DLL) -!DEC$attributes dllexport :: verify_Fortran_INTEGER_4 +!DEC$attributes dllexport :: verify_INTEGER_HID_T !DEC$endif - SUBROUTINE verify_Fortran_INTEGER_4(string,value,correct_value,total_error) - USE HDF5 - INTEGER, PARAMETER :: int_kind_8 = SELECTED_INT_KIND(Fortran_INTEGER_4) ! should map to INTEGER*4 on most modern processors + SUBROUTINE verify_INTEGER_HID_T(string,value,correct_value,total_error) + USE HDF5 CHARACTER(LEN=*) :: string - INTEGER(int_kind_8) :: value, correct_value + INTEGER(HID_T) :: value, correct_value INTEGER :: total_error IF (value .NE. correct_value) THEN total_error=total_error+1 WRITE(*,*) "ERROR: INCORRECT VALIDATION ", string ENDIF RETURN - END SUBROUTINE verify_Fortran_INTEGER_4 + END SUBROUTINE verify_INTEGER_HID_T !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_TEST_DLL) |