fixed nvidia compiler issue (HDFGroup#3527)

qkoziol · Sep 30, 2023 · 095a90a · 095a90a
1 parent 9182ac3
commit 095a90a
Showing 1 changed file with 6 additions and 10 deletions.
diff --git a/fortran/test/tH5L_F03.F90 b/fortran/test/tH5L_F03.F90
@@ -174,13 +174,9 @@ INTEGER(KIND=C_INT) FUNCTION lvisit_cb(group, name, link_info, op_data) bind(C)
  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