diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2024-01-30 17:05:20 (GMT) |
---|---|---|
committer | Larry Knox <lrknox@hdfgroup.org> | 2024-02-14 21:32:07 (GMT) |
commit | c6a0abde93faba3341dbcefeae49b415211e68ac (patch) | |
tree | b935f836f8fcf07660179c664a234668cbd40815 /fortran/src/H5Sff.F90 | |
parent | ea73728f68971516ac4396b9383f1eb47eb4bbc6 (diff) | |
download | hdf5-c6a0abde93faba3341dbcefeae49b415211e68ac.zip hdf5-c6a0abde93faba3341dbcefeae49b415211e68ac.tar.gz hdf5-c6a0abde93faba3341dbcefeae49b415211e68ac.tar.bz2 |
Fixed XL and gfortran errors (#3968)
* fixed XL and Gfortran errors
* fixed data type len array
Diffstat (limited to 'fortran/src/H5Sff.F90')
-rw-r--r-- | fortran/src/H5Sff.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/src/H5Sff.F90 b/fortran/src/H5Sff.F90 index e64956d..5f2f1d2 100644 --- a/fortran/src/H5Sff.F90 +++ b/fortran/src/H5Sff.F90 @@ -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 |