! { 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 "Non-variable expression" } | |
end |