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