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

   1 ! PR 15314
   2 ! We were looking at the type of the initialization expression, not the type
   3 ! of the field.
   4 program der_init_2
   5   implicit none
   6   type foo
   7     integer :: a(3) = 42
   8     integer :: b = 123
   9   end type
  10
  11   type (foo) :: v
  12
  13   if ((v%b .ne. 123) .or. any (v%a .ne. 42)) STOP 1;
  14 end program
  15