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