Subversion Repositories openrisc

! { dg-do compile }
! { dg-options "-fcoarray=single -Wall" }
!
! This program is perfectly valid; however, passing an (allocatable) coarray
! as actual argument to a non-coarray allocatable dummy is doubtful as
! reallocation is not allowed. Thus, an intent(out) dummy should be always
! wrong.
!

integer, allocatable :: myCaf(:)[:]

allocate(myCaf(1)[*])

call doubtful_valid(myCaf)  ! { dg-warning "to allocatable, noncoarray dummy" }
call invalid(myCaf)         ! { dg-error "to allocatable, noncoarray, INTENT.OUT. dummy" }
contains
  subroutine doubtful_valid(x)
    integer, allocatable :: x(:)
    ! Valid as x's allocation status is not touched.
    x(1) = 7
  end subroutine doubtful_valid
  subroutine invalid(y)
    integer, allocatable, intent(out) :: y(:)
    allocate (y(1))
  end subroutine invalid
end