Subversion Repositories openrisc_me

! { dg-do compile }

! PR fortran/36803

! PR fortran/36795

!

! "(n)" was simplified to the EXPR_VARIABLE "n"

! and thus "(n)" was judged as definable.

!

interface

  subroutine foo(x)

    character, intent(out) :: x(:)  ! or INTENT(INOUT)

  end subroutine foo

end interface

character :: n(5)

call foo( (n) ) ! { dg-error "must be definable" }

end