22 lines
482 B
Fortran
22 lines
482 B
Fortran
! { dg-do run }
|
|
! { dg-options "-O" }
|
|
! Test the fix for PR29394 in which automatic arrays did not
|
|
! get default initialization.
|
|
! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
!
|
|
MODULE M1
|
|
TYPE T1
|
|
INTEGER :: I=7
|
|
END TYPE T1
|
|
CONTAINS
|
|
SUBROUTINE S1(I)
|
|
INTEGER, INTENT(IN) :: I
|
|
TYPE(T1) :: D(1:I)
|
|
IF (any (D(:)%I.NE.7)) CALL ABORT()
|
|
END SUBROUTINE S1
|
|
END MODULE M1
|
|
USE M1
|
|
CALL S1(2)
|
|
END
|
|
! { dg-final { cleanup-modules "m1" } }
|