Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-fcoarray=single" }

!

! PR fortran/50420

! Coarray subobjects were not accepted as valid coarrays

! They should still be rejected if one of the component reference is allocatable

! or pointer

type t

  integer :: i

end type t

type t2

  type(t), allocatable :: a

  type(t), pointer     :: c

end type t2

type(t2) :: b[5:*]

allocate(b%a)

allocate(b%c)

b%a%i = 7

b%c%i = 13

if (b%a%i /= 7) call abort

if (any (lcobound(b%a) /= (/ 5 /))) call abort             ! { dg-error "Expected coarray variable" }

if (ucobound(b%a, dim=1) /= this_image() + 4) call abort   ! { dg-error "Expected coarray variable" }

if (any (lcobound(b%a%i) /= (/ 5 /))) call abort           ! { dg-error "Expected coarray variable" }

if (ucobound(b%a%i, dim=1) /= this_image() + 4) call abort ! { dg-error "Expected coarray variable" }

if (b%c%i /= 13) call abort

if (any (lcobound(b%c) /= (/ 5 /))) call abort             ! { dg-error "Expected coarray variable" }

if (ucobound(b%c, dim=1) /= this_image() + 4) call abort   ! { dg-error "Expected coarray variable" }

if (any (lcobound(b%c%i) /= (/ 5 /))) call abort           ! { dg-error "Expected coarray variable" }

if (ucobound(b%c%i, dim=1) /= this_image() + 4) call abort ! { dg-error "Expected coarray variable" }

end