summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2023-09-11 16:57:30 (GMT)
committerGitHub <noreply@github.com>2023-09-11 16:57:30 (GMT)
commita0edeee49f77a1cb59c7969a451164dd595e0d01 (patch)
tree875ee93935c5a86f2c6ee437ca097dd4fe407733 /fortran
parentfbeddf2c9c6141f4ed6e5638711ce8aa2b58b7c1 (diff)
downloadhdf5-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.F9016
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