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