Skip to content

Commit dcc82a1

Browse files
authored
Update acc_testsuite.Fh
fix Error: Size of ‘put’ argument of ‘random_seed’ intrinsic at (1) too small (32/33)
1 parent ce3b43c commit dcc82a1

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Tests/acc_testsuite.Fh

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,5 +5,5 @@ integer, parameter :: ARRAYSIZE_NEW = 1024
55
integer, parameter :: ARRAYSIZE_SMALL = 10
66
integer, parameter :: NUM_TEST_CALLS = 1
77
integer, parameter :: n = 1
8-
integer, dimension(32) :: SEEDDIM = 0
8+
integer, dimension(33) :: SEEDDIM = 0
99
real, parameter :: PRECISION = 1.e-2

0 commit comments

Comments
 (0)