! { dg-do compile } | |
! { dg-options "-fcoarray=lib -lcaf_single" } | |
! | |
! Test the fix for PR83319 | |
! | |
module foo_module | |
implicit none | |
type foo | |
integer, allocatable :: i(:) | |
end type | |
end module | |
use foo_module | |
implicit none | |
type(foo), save :: bar[*] | |
allocate(bar%i(1)) ! Used to ICE here. | |
end |