1 ! Program to test arrays with the save attribute
4 integer, save, dimension (6, 5) :: a
, b
15 integer, dimension(1:, 1:) :: a
16 integer, dimension(2) :: b
19 if (any (b
.ne
. (/6, 5/))) STOP 1
20 if (a(1, 1) .ne
. 42) STOP 2
21 if (a(6, 5) .ne
. 43) STOP 3