blob: fc8be98b113556732afb00c070e92fa5919e788f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do compile }
!
! PR fortran/57033
! ICE on a structure constructor of an extended derived type whose parent
! type last component has a default initializer
!
! Contributed by Tilo Schwarz <tilo@tilo-schwarz.de>
program ice
type m
integer i
logical :: f = .false.
end type m
type, extends(m) :: me
end type me
type(me) meo
meo = me(1) ! ICE
end program ice
|
