diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2023-09-11 16:57:30 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-09-11 16:57:30 (GMT) |
| commit | a0edeee49f77a1cb59c7969a451164dd595e0d01 (patch) | |
| tree | 875ee93935c5a86f2c6ee437ca097dd4fe407733 /fortran | |
| parent | fbeddf2c9c6141f4ed6e5638711ce8aa2b58b7c1 (diff) | |
| download | hdf5-a0edeee49f77a1cb59c7969a451164dd595e0d01.zip hdf5-a0edeee49f77a1cb59c7969a451164dd595e0d01.tar.gz hdf5-a0edeee49f77a1cb59c7969a451164dd595e0d01.tar.bz2 | |
fixed nvidia compiler issue (#3527)
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/test/tH5L_F03.F90 | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/fortran/test/tH5L_F03.F90 b/fortran/test/tH5L_F03.F90 index b3fa80e..c83c067 100644 --- a/fortran/test/tH5L_F03.F90 +++ b/fortran/test/tH5L_F03.F90 @@ -174,13 +174,9 @@ CONTAINS IF(nlen.NE.0)THEN istart = (op_data%n_obj-1)*MAX_CHAR_LEN + 1 iend = istart + MAX_CHAR_LEN - 1 - !PRINT*,istart, iend, name(1:nlen) op_data%name(istart:istart+nlen-1) = name(1:nlen) - !op_data%name((op_data%n_obj-1)*MAX_CHAR_LEN)(1:nlen) = name(1:nlen) - !PRINT*,op_data%name(istart:istart+nlen) ENDIF - ! PRINT*,op_data%name lvisit_cb = 0 END FUNCTION lvisit_cb @@ -210,10 +206,10 @@ SUBROUTINE test_iter_group(cleanup, total_error) INTEGER(HID_T) :: fapl INTEGER(HID_T) :: file ! File ID - INTEGER(hid_t) :: dataset ! Dataset ID - INTEGER(hid_t) :: datatype ! Common datatype ID - INTEGER(hid_t) :: filespace ! Common dataspace ID - INTEGER(hid_t) :: grp ! Group ID + INTEGER(HID_T) :: dataset ! Dataset ID + INTEGER(HID_T) :: datatype ! Common datatype ID + INTEGER(HID_T) :: filespace ! Common dataspace ID + INTEGER(HID_T) :: grp ! Group ID INTEGER i,j ! counting variable INTEGER(hsize_t) idx ! Index in the group CHARACTER(LEN=11) :: DATAFILE = "titerate.h5" @@ -541,7 +537,7 @@ SUBROUTINE test_visit(cleanup, total_error) EXIT ENDIF ENDDO - IF( TRIM(tmp) .NE. TRIM(obj_list(i)(:)) )THEN + IF( TRIM(tmp) .NE. TRIM(obj_list(i)) )THEN CALL check("h5lvisit_f: Wrong object list from visit", -1, total_error) EXIT ENDIF @@ -570,7 +566,7 @@ SUBROUTINE test_visit(cleanup, total_error) EXIT ENDIF ENDDO - IF( TRIM(tmp) .NE. TRIM(obj_list(i)(:)) )THEN + IF( TRIM(tmp) .NE. TRIM(obj_list(i)) )THEN CALL check("h5lvisit_by_name_f: Wrong object list from visit", -1, total_error) EXIT ENDIF |