URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [automatic_default_init_1.f90] - Rev 302
Compare with Previous | Blame | View Log
! { 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" } }