1! { dg-do compile }
2! Checks for excess errors.
3implicit none
4dimension i(10) ! { dg-error "has no IMPLICIT type" }
5i = 2
6end
7