blob: e0476d02e58909c4e6a66941794d4cfc86b50944 [file] [log] [blame]
! { dg-do compile }
! Checks for excess errors.
implicit none
dimension i(10) ! { dg-error "has no IMPLICIT type" }
i = 2
end