blob: 8d01224f15e6b3247b3d1055e0bc355cb217425c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { dg-do compile }
!
! PR 42888: [4.5 Regression] ICE in fold_convert_loc, at fold-const.c:2670
!
! Contributed by Harald Anlauf <anlauf@gmx.de>
implicit none
type t
integer :: X = -999.0 ! Real initializer!
end type t
type(t), allocatable :: x
class(t), allocatable :: y,z
allocate (x)
allocate (y)
allocate (t::z)
end
|
