16 lines
345 B
Fortran
16 lines
345 B
Fortran
! { 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
|