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