automatic_default_init_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 22 行

! { 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  <[e-mail]> 
!
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" } }