blob: 8d26ff8875325c90b040746d130b299989922bb5 (
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
|
! { dg-do run }
! PR/fortran 93671 - ICE on intrinsic assignment to allocatable derived-type
! component of coarray
type flux_planes
integer, allocatable :: normals
end type
type package
type(flux_planes) surface_fluxes(1)
end type
type(package) mail[*], halo_data
halo_data%surface_fluxes(1)%normals = 1
mail = halo_data
if (any(size(mail%surface_fluxes) /= [1]) .OR. &
mail%surface_fluxes(1)%normals /= 1) then
stop 1
end if
end
|