gcc/testsuite/gfortran.dg/char_expr_2.f90

   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 !
   8 interface
   9   subroutine foo(x)
  10     character, intent(out) :: x(:)  ! or INTENT(INOUT)
  11   end subroutine foo
  12 end interface
  13 character :: n(5)
  14 call foo( (n) ) ! { dg-error "Non-variable expression" }
  15 end