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