gcc/testsuite/gfortran.fortran-torture/execute/der_init_3.f90


1
2
3
4
5
6
7
8
9
10
11
12

! PR15365
! Default initializers were being missed
program main
  type xyz
     integer :: x = 123
  end type xyz

  type (xyz) :: a  !! ok
  type (xyz) b    !!! not initialized !!!
  if (a%x.ne.123) call abort
  if (b%x.ne.123) call abort
end