summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorOrion Poplawski <orion@nwra.com>2022-03-18 16:09:29 (GMT)
committerGitHub <noreply@github.com>2022-03-18 16:09:29 (GMT)
commitbe36ac1d33639fdff6fc11e6bd72a6e313e3a792 (patch)
tree826d245f22fab76e5a2cb4fa274abeeffbf92eaa /fortran/test
parentabad1f320a549cebe7414f57be2121e69644b88d (diff)
downloadhdf5-be36ac1d33639fdff6fc11e6bd72a6e313e3a792.zip
hdf5-be36ac1d33639fdff6fc11e6bd72a6e313e3a792.tar.gz
hdf5-be36ac1d33639fdff6fc11e6bd72a6e313e3a792.tar.bz2
Mark minusone as a PARAMETER in tH5A_1_8.F90. Resolves #1379. (#1412)
Diffstat (limited to 'fortran/test')
-rw-r--r--fortran/test/tH5A_1_8.F906
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"