1! { dg-do compile }
2! { dg-options "-fimplicit-none" }
3subroutine s(n) ! { dg-error "has no IMPLICIT type" }
4   character(n) :: c  ! { dg-error "Scalar INTEGER expression expected" }
5   c = 'c' ! { dg-error "has no IMPLICIT type" }
6end
7