1! PR 15314
2! We were looking at the type of the initialization expression, not the type
3! of the field.
4program 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)) call abort ();
14end program
15
16