blob: 3c2107d175ced1f213fff6c577002868b69d674a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do compile }
! PR fortran/67616
! Original code contributed by Gerhard Steinmetz
program p
type t
end type
type(t) :: y
data y /t()/
block
type(t) :: x
data x /t()/ ! Prior to patch, this would ICE.
end block
end
|