blob: 75d1f50c23834bea61b18a5c40f742ad348923a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
! { dg-do compile }
! internal compiler error: in gfc_build_dummy_array_decl, at
! fortran/trans-decl.cc:1317
!
! Contributed by Gerhard Steinmetz <gscfq@t-online.de>
!
program p
type t0
integer :: i
end type
type t
class(t0), allocatable :: a(:)
end type
class(t0), allocatable :: arg(:)
allocate (arg, source = [t0(1), t0(2)])
call s(arg)
contains
subroutine s(x)
class(t0) :: x(:)
type(t) :: z
associate (y => x)
z%a = y
end associate
if (size(z%a) .ne. 2) stop 1
end
end
|
