Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git] / old-autovect-branch / gcc / testsuite / gfortran.fortran-torture / execute / der_init_3.f90
blob21b79092f74accf5e309c1a583eb71b204baa41c
1 ! PR15365
2 ! Default initializers were being missed
3 program main
4 type xyz
5 integer :: x = 123
6 end type xyz
8 type (xyz) :: a !! ok
9 type (xyz) b !!! not initialized !!!
10 if (a%x.ne.123) call abort
11 if (b%x.ne.123) call abort
12 end