1! { dg-do compile }
2! PR fortran/100274 - ICE in gfc_conv_procedure_call, at fortran/trans-expr.c:6131
3
4program p
5  call s('y')   ! { dg-warning "Character length of actual argument" }
6contains
7  subroutine s(x)
8    character(8), intent(out) :: x
9  end
10end
11
12! { dg-error "in variable definition context"  " " { target *-*-* } 5 }
13