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

Fixed XL and gfortran errors (#3968)

Browse Source 
* fixed XL and Gfortran errors

* fixed data type len array
This commit is contained in:
Scot Breitenfeld 2024-01-30 11:05:20 -06:00 committed by GitHub
parent 1e511d4092
commit 791915e92a
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
3 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fortran/src/H5Fff.F90
View File

@ -1220,6 +1220,9 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: file_id
INTEGER, INTENT(OUT) :: intent
INTEGER, INTENT(OUT) :: hdferr
INTEGER(C_INT) :: c_intent
INTERFACE
INTEGER(C_INT) FUNCTION H5Fget_intent(file_id, intent) BIND(C,NAME='H5Fget_intent')
IMPORT :: C_INT
@ -1230,7 +1233,8 @@ CONTAINS
END FUNCTION H5Fget_intent
END INTERFACE
hdferr = INT(H5Fget_intent(file_id, intent))
hdferr = INT(H5Fget_intent(file_id, c_intent))
intent = INT(c_intent)
END SUBROUTINE h5fget_intent_f

8
fortran/src/H5Sff.F90
View File

@ -1533,10 +1533,10 @@ CONTAINS
INTEGER(HID_T) , INTENT(IN) :: sel_iter_id
INTEGER(SIZE_T), INTENT(IN) :: maxseq
INTEGER(SIZE_T), INTENT(IN) :: maxbytes
INTEGER(SIZE_T), INTENT(OUT), TARGET :: nseq
INTEGER(SIZE_T), INTENT(OUT), TARGET :: nbytes
INTEGER(SIZE_T), INTENT(OUT) :: nseq
INTEGER(SIZE_T), INTENT(OUT) :: nbytes
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: off
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: len
INTEGER(SIZE_T), DIMENSION(*), INTENT(OUT) :: len
INTEGER, INTENT(OUT) :: hdferr
INTERFACE
@ -1550,7 +1550,7 @@ CONTAINS
INTEGER(SIZE_T) :: nseq
INTEGER(SIZE_T) :: nbytes
INTEGER(HSIZE_T), DIMENSION(*) :: off
INTEGER(HSIZE_T), DIMENSION(*) :: len
INTEGER(SIZE_T), DIMENSION(*) :: len
END FUNCTION H5Ssel_iter_get_seq_list
END INTERFACE

8
fortran/test/tH5Sselect.F90
View File

@ -405,7 +405,7 @@ CONTAINS
CALL VERIFY("H5Ssel_iter_get_seq_list_f", nseq, 4_SIZE_T, total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", nbytes, 4_SIZE_T, total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", off(NUMP+1), INT(-99,HSIZE_T), total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", ilen(NUMP+1), INT(-99,HSIZE_T), total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", ilen(NUMP+1), INT(-99,SIZE_T), total_error)
DO i = 1, NUMP
CALL VERIFY("H5Ssel_iter_get_seq_list_f", off(i), INT((i-1)*26+12,HSIZE_T), total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", ilen(i), INT(1,SIZE_T), total_error)
@ -414,7 +414,7 @@ CONTAINS
CALL VERIFY("H5Ssel_iter_get_seq_list_f", nseq, 4_SIZE_T, total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", nbytes, 16_SIZE_T, total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", off(NUMP+1), INT(-99,HSIZE_T), total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", ilen(NUMP+1), INT(-99,HSIZE_T), total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", ilen(NUMP+1), INT(-99,SIZE_T), total_error)
DO i = 1, NUMP
CALL VERIFY("H5Ssel_iter_get_seq_list_f", off(i), INT((i-1)*12,HSIZE_T), total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", ilen(i), INT(4,SIZE_T), total_error)
@ -423,9 +423,9 @@ CONTAINS
CALL VERIFY("H5Ssel_iter_get_seq_list_f", nseq, 1_SIZE_T, total_error )
CALL VERIFY("H5Ssel_iter_get_seq_list_f", nbytes, 72_SIZE_T, total_error )
CALL VERIFY("H5Ssel_iter_get_seq_list_f", off(1), INT(0,HSIZE_T), total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", ilen(1), INT(72,HSIZE_T), total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", ilen(1), INT(72,SIZE_T), total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", off(2), INT(-99,HSIZE_T), total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", ilen(2), INT(-99,HSIZE_T), total_error)
CALL VERIFY("H5Ssel_iter_get_seq_list_f", ilen(2), INT(-99,SIZE_T), total_error)
ELSE
CALL check("Incorrect selection option", error, total_error)
ENDIF