mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
26 lines
432 B
Fortran
26 lines
432 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-fcoarray=single" }
|
|
!
|
|
! PR fortran/18918
|
|
!
|
|
|
|
! Was failing before as the "x%a()[]" was
|
|
! regarded as coindexed
|
|
subroutine test2()
|
|
type t
|
|
integer, allocatable :: a(:)[:]
|
|
end type t
|
|
type(t), SAVE :: x
|
|
allocate(x%a(1)[*])
|
|
end subroutine test2
|
|
|
|
|
|
module m
|
|
integer, allocatable :: a(:)[:]
|
|
end module m
|
|
|
|
! Was failing as "a" was allocatable but
|
|
! as->cotype was not AS_DEFERERED.
|
|
use m
|
|
end
|