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