diff options
| author | Dana Robinson <43805+derobins@users.noreply.github.com> | 2023-06-28 00:42:29 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-06-28 00:42:29 (GMT) |
| commit | 942739e6fbea0ebf736c35f461e1386396b54e11 (patch) | |
| tree | ad98c75926ac1862cae0258ecd5d14f803060112 /fortran/test/tH5A_1_8.F90 | |
| parent | 636b5d073b273b277d0c2988f33dc1b8eec7a97e (diff) | |
| download | hdf5-942739e6fbea0ebf736c35f461e1386396b54e11.zip hdf5-942739e6fbea0ebf736c35f461e1386396b54e11.tar.gz hdf5-942739e6fbea0ebf736c35f461e1386396b54e11.tar.bz2 | |
Remove HD/hbool_t from fortran (#3182)
Diffstat (limited to 'fortran/test/tH5A_1_8.F90')
| -rw-r--r-- | fortran/test/tH5A_1_8.F90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/fortran/test/tH5A_1_8.F90 b/fortran/test/tH5A_1_8.F90 index 03e26ec..bffdb3e 100644 --- a/fortran/test/tH5A_1_8.F90 +++ b/fortran/test/tH5A_1_8.F90 @@ -621,7 +621,7 @@ SUBROUTINE test_attr_create_by_name(new_format,fcpl,fapl, total_error) my_dataset = dset3 dsetname = DSET3_NAME ! CASE DEFAULT - ! CALL HDassert(0.AND."Toomanydatasets!") + ! CALL assert(0.AND."Toomanydatasets!") END SELECT @@ -1487,7 +1487,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error) CASE (2) my_dataset = dset3 ! CASE DEFAULT - ! CALL HDassert(0.AND."Toomanydatasets!") + ! CALL assert(0.AND."Toomanydatasets!") END SELECT @@ -1536,7 +1536,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error) CASE (2) my_dataset = dset3 ! CASE DEFAULT - ! CALL HDassert(0.AND."Toomanydatasets!") + ! CALL assert(0.AND."Toomanydatasets!") END SELECT ! Delete attributes from compact storage @@ -1552,7 +1552,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error) ! Verify the attribute information for first attribute in appropriate order - ! HDmemset(&ainfo, 0, sizeof(ainfo)); + ! memset(&ainfo, 0, sizeof(ainfo)); !EP CALL h5aget_info_by_idx_f(my_dataset, ".", idx_type, order, 0_HSIZE_T, & CALL h5aget_info_by_idx_f(my_dataset, ".", idx_type, order, hzero, & @@ -1602,7 +1602,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error) CASE (2) my_dataset = dset3 ! CASE DEFAULT - ! CALL HDassert(0.AND."Toomanydatasets!") + ! CALL assert(0.AND."Toomanydatasets!") END SELECT ! Create more attributes, to push into dense form @@ -1667,7 +1667,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error) ENDIF ! Verify the name for first attribute in appropriate order - ! HDmemset(tmpname, 0, (size_t)NAME_BUF_SIZE); + ! memset(tmpname, 0, (size_t)NAME_BUF_SIZE); size = 7 ! *CHECK* if not the correct size CALL h5aget_name_by_idx_f(my_dataset, ".", idx_type, order,INT(0,hsize_t), & |