diff options
| author | Orion Poplawski <orion@nwra.com> | 2022-03-18 16:09:29 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-03-18 16:09:29 (GMT) |
| commit | be36ac1d33639fdff6fc11e6bd72a6e313e3a792 (patch) | |
| tree | 826d245f22fab76e5a2cb4fa274abeeffbf92eaa | |
| parent | abad1f320a549cebe7414f57be2121e69644b88d (diff) | |
| download | hdf5-be36ac1d33639fdff6fc11e6bd72a6e313e3a792.zip hdf5-be36ac1d33639fdff6fc11e6bd72a6e313e3a792.tar.gz hdf5-be36ac1d33639fdff6fc11e6bd72a6e313e3a792.tar.bz2 | |
Mark minusone as a PARAMETER in tH5A_1_8.F90. Resolves #1379. (#1412)
| -rw-r--r-- | fortran/test/tH5A_1_8.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/test/tH5A_1_8.F90 b/fortran/test/tH5A_1_8.F90 index b245b1c..cd8a981 100644 --- a/fortran/test/tH5A_1_8.F90 +++ b/fortran/test/tH5A_1_8.F90 @@ -776,7 +776,7 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error) INTEGER :: Input1 INTEGER(HSIZE_T) :: hzero = 0_HSIZE_T - INTEGER :: minusone = -1 + INTEGER, PARAMETER :: minusone = -1 data_dims = 0 @@ -1422,7 +1422,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error) INTEGER :: u ! Local index variable INTEGER :: Input1 INTEGER(HSIZE_T) :: hzero = 0_HSIZE_T - INTEGER :: minusone = -1 + INTEGER, PARAMETER :: minusone = -1 data_dims = 0 @@ -2263,7 +2263,7 @@ SUBROUTINE test_attr_corder_create_basic( fcpl, fapl, total_error ) INTEGER :: error INTEGER :: crt_order_flags - INTEGER :: minusone = -1 + INTEGER, PARAMETER :: minusone = -1 ! Output message about test being performed ! WRITE(*,*) " - Testing Basic Code for Attributes with Creation Order Info" |