blob: bdf76e1f52187b298d8c033f2089c3f02b09e0c0 [file] [log] [blame]
! { dg-do compile }
! Test the fix for pr56852, where an ICE would occur after the error.
!
! Contributed by Lorenz Huedepohl <bugs@stellardeath.org>
!
program test
implicit none
real :: a(4)
! integer :: i
read(0) (a(i),i=1,4) ! { dg-error "has no IMPLICIT type" }
end program