1! { dg-do compile }
2! Test the fix for pr56852, where an ICE would occur after the error.
3!
4! Contributed by Lorenz Huedepohl  <bugs@stellardeath.org>
5!
6program test
7  implicit none
8  real :: a(4)
9  ! integer :: i
10  read(0) (a(i),i=1,4) ! { dg-error "has no IMPLICIT type" }
11end program
12