diff options
author | Allen Byrne <50328838+byrnHDF@users.noreply.github.com> | 2023-02-16 13:23:09 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2023-02-16 13:23:09 (GMT) |
commit | af9659d8475123d25f2235ef09b39567c4e2dde0 (patch) | |
tree | b94ef18a88c9c0a18f1cd027cf19f7d1487440da /fortran/test/tH5D.F90 | |
parent | 5b79bb2f0f0c9722da2236deef2875291bdb7bde (diff) | |
download | hdf5-af9659d8475123d25f2235ef09b39567c4e2dde0.zip hdf5-af9659d8475123d25f2235ef09b39567c4e2dde0.tar.gz hdf5-af9659d8475123d25f2235ef09b39567c4e2dde0.tar.bz2 |
1.10: Add spelling check to CI and fix errors. (#2442)
* Update CI and support files to match latest from 1.14
* Correct spelling
* More spelling corrections
* spelling fixes in testpar
* Fix spelling errors in tools
* More tools spelling fixes
* Spelling fixes for rest of tools and some src
* Fix spelling errors in src files, pt 2
* Fix spelling in src pt3
* Fix spelling errors pt4
* Fix spelling errors pt5
* Spelling fix pt6
* fix spelling error examples
* fix spelling in tests
* fix spelling errors in test pt2
* Fix spelling errors in test pt3
* fix spelling in test pt4
* Fix spelling errors in hl
* fix spelling errors in c++
* Spelling fixes for fortran
* spelling fixes for bin and java
* Add relative path
* Change spelling action to use a file for list of ignore words
* Fix spelling ignore list
* remove unused file
Diffstat (limited to 'fortran/test/tH5D.F90')
-rw-r--r-- | fortran/test/tH5D.F90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/fortran/test/tH5D.F90 b/fortran/test/tH5D.F90 index 006d62a..5f8484e 100644 --- a/fortran/test/tH5D.F90 +++ b/fortran/test/tH5D.F90 @@ -187,7 +187,7 @@ CONTAINS DO i = 1, 4 DO j = 1, 6 IF (data_out(i,j) .NE. dset_data(i, j)) THEN - WRITE(*, *) "dataset test error occured" + WRITE(*, *) "dataset test error occurred" WRITE(*,*) "data read is not the same as the data written" END IF END DO @@ -196,7 +196,7 @@ CONTAINS ! Check if no change to null_dset_data ! IF (null_dset_data .NE. 1) THEN - WRITE(*, *) "null dataset test error occured" + WRITE(*, *) "null dataset test error occurred" END IF ! ! End access to the dataset and release resources used by it. @@ -258,7 +258,7 @@ CONTAINS INTEGER(HID_T) :: dset_id ! Dataset identifier INTEGER(HID_T) :: dataspace ! Dataspace identifier INTEGER(HID_T) :: memspace ! memory Dataspace identifier - INTEGER(HID_T) :: crp_list ! dataset creatation property identifier + INTEGER(HID_T) :: crp_list ! dataset creation property identifier ! !dataset dimensions at creation time @@ -313,7 +313,7 @@ CONTAINS END DO ! - !Initialize FORTRAN predifined datatypes + !Initialize FORTRAN predefined datatypes ! ! CALL h5init_types_f(error) ! CALL check("h5init_types_f",error,total_error) @@ -347,7 +347,7 @@ CONTAINS CALL check("h5pset_chunk_f",error,total_error) ! - !Create a dataset with 3X3 dimensions using cparms creation propertie . + !Create a dataset with 3X3 dimensions using cparms creation properties. ! CALL h5dcreate_f(file_id, dsetname, H5T_NATIVE_INTEGER, dataspace, dset_id, error, crp_list ) CALL check("h5dcreate_f",error,total_error) @@ -426,7 +426,7 @@ CONTAINS CALL h5sget_simple_extent_ndims_f(dataspace, rankr, error) CALL check("h5sget_simple_extent_ndims_f",error,total_error) IF (rankr .NE. RANK) THEN - WRITE(*,*) "dataset rank error occured" + WRITE(*,*) "dataset rank error occurred" STOP END IF @@ -436,7 +436,7 @@ CONTAINS CALL h5sget_simple_extent_dims_f(dataspace, dimsr, maxdimsr, error) CALL check("h5sget_simple_extent_dims_f",error,total_error) IF ((dimsr(1) .NE. dims1(1)) .OR. (dimsr(2) .NE. dims1(2))) THEN - WRITE(*,*) "dataset dimensions error occured" + WRITE(*,*) "dataset dimensions error occurred" STOP END IF @@ -466,7 +466,7 @@ CONTAINS DO ih = 1, dims1(1) DO jh = 1, dims1(2) IF (data_out(ih,jh) .NE. data_in(ih, jh)) THEN - WRITE(*, *) "extend dataset test error occured" + WRITE(*, *) "extend dataset test error occurred" WRITE(*, *) "read value is not the same as the written values" END IF END DO |