Update acc_testsuite.Fh

fix Error: Size of ‘put’ argument of ‘random_seed’ intrinsic at (1) too small (32/33)
OpenACCUserGroup · Oct 11, 2023 · dcc82a1 · dcc82a1
1 parent ce3b43c
commit dcc82a1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Tests/acc_testsuite.Fh b/Tests/acc_testsuite.Fh
@@ -5,5 +5,5 @@ integer, parameter :: ARRAYSIZE_NEW = 1024
 integer, parameter :: ARRAYSIZE_SMALL = 10
 integer, parameter :: NUM_TEST_CALLS = 1
 integer, parameter :: n = 1
-integer, dimension(32) :: SEEDDIM = 0
+integer, dimension(33) :: SEEDDIM = 0
 real, parameter :: PRECISION = 1.e-2