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