Subversion Repositories openrisc

! { 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

! { dg-final { cleanup-modules "m" } }