1! { dg-do compile } 2subroutine foo 3 implicit none 4 character(len=bar) :: a ! { dg-error "Scalar INTEGER expression" } 5end subroutine foo 6