1! { dg-do run } 2! { dg-options "-O" } 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> 6! 7MODULE M1 8 TYPE T1 9 INTEGER :: I=7 10 END TYPE T1 11CONTAINS 12 SUBROUTINE S1(I) 13 INTEGER, INTENT(IN) :: I 14 TYPE(T1) :: D(1:I) 15 IF (any (D(:)%I.NE.7)) CALL ABORT() 16 END SUBROUTINE S1 17END MODULE M1 18 USE M1 19 CALL S1(2) 20END 21