3 ! Test the fix for PR29394 in which automatic arrays did not
4 ! get default initialization.
5 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
13 INTEGER, INTENT(IN
) :: I
15 IF (any (D(:)%I
.NE
.7)) CALL ABORT()
21 ! { dg-final { cleanup-modules "m1" } }