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/tH5Sselect.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/tH5Sselect.F90')
| -rw-r--r-- | fortran/test/tH5Sselect.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/test/tH5Sselect.F90 b/fortran/test/tH5Sselect.F90 index f0b2c85..bf1658c 100644 --- a/fortran/test/tH5Sselect.F90 +++ b/fortran/test/tH5Sselect.F90 @@ -1086,8 +1086,8 @@ SUBROUTINE test_select_point(cleanup, total_error) ! MESSAGE(5, ("Testing Element Selection Functions\n")); ! Allocate write & read buffers -!!$ wbuf = HDmalloc(sizeof(uint8_t) * SPACE2_DIM1 * SPACE2_DIM2); -!!$ rbuf = HDcalloc(sizeof(uint8_t), (size_t)(SPACE3_DIM1 * SPACE3_DIM2)); +!!$ wbuf = malloc(sizeof(uint8_t) * SPACE2_DIM1 * SPACE2_DIM2); +!!$ rbuf = calloc(sizeof(uint8_t), (size_t)(SPACE3_DIM1 * SPACE3_DIM2)); !!$ ! Initialize WRITE buffer @@ -1204,7 +1204,7 @@ SUBROUTINE test_select_point(cleanup, total_error) !!$ Save points for later iteration !!$ (these are in the second half of the buffer, because we are prepending !!$ the next list of points to the beginning of the point selection list) -!!$ HDmemcpy(((char *)pi.coord)+sizeof(coord2),coord2,sizeof(coord2)); +!!$ memcpy(((char *)pi.coord)+sizeof(coord2),coord2,sizeof(coord2)); !!$ CALL H5Sget_select_npoints_f(sid2, npoints, error) @@ -1241,7 +1241,7 @@ SUBROUTINE test_select_point(cleanup, total_error) CALL verify("h5sget_select_npoints_f", INT(npoints), 20, total_error) !!$ Save points for later iteration -!!$ HDmemcpy(pi.coord,coord2,sizeof(coord2)); +!!$ memcpy(pi.coord,coord2,sizeof(coord2)); ! Create a dataset CALL h5dcreate_f(fid1, "Dataset1", H5T_NATIVE_CHARACTER, sid1, dataset, error) |