1! { dg-do compile }
2! PR fortran/36803
3! PR fortran/36795
4!
5! "(n)" was simplified to the EXPR_VARIABLE "n"
6! and thus "(n)" was judged as definable.
7!
8interface
9  subroutine foo(x)
10    character, intent(out) :: x(:)  ! or INTENT(INOUT)
11  end subroutine foo
12end interface
13character :: n(5)
14call foo( (n) ) ! { dg-error "Non-variable expression" }
15end
16