parent
02b47ba987
commit
a8d474b568
@ -0,0 +1,37 @@
|
|||||||
|
commit 3ea6f8c17228d2629e419563138a6180bc4a5a6a
|
||||||
|
Author: Orion Poplawski <orion@nwra.com>
|
||||||
|
Date: Sun Jan 30 15:21:08 2022 -0700
|
||||||
|
|
||||||
|
Mark minusone as a PARAMETER in tH5A_1_8.F90.
|
||||||
|
|
||||||
|
diff --git a/fortran/test/tH5A_1_8.F90 b/fortran/test/tH5A_1_8.F90
|
||||||
|
index 4e02c58a39..c2f8e9984a 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
|
||||||
|
INTEGER(HSIZE_T) :: htmp
|
||||||
|
|
||||||
|
data_dims = 0
|
||||||
|
@@ -1427,7 +1427,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
|
||||||
|
|
||||||
|
@@ -2268,7 +2268,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"
|
Loading…
Reference in new issue