1! RUN: %S/test_errors.sh %s %t %f18
2! Regression test for subscript error recovery
3module m
4  implicit none
5  integer, parameter :: n = 3
6  integer, parameter :: pc(n) = [0, 5, 6]
7 contains
8  logical function f(u)
9    integer :: u
10    !ERROR: No explicit type declared for 'i'
11    do i = 1, n
12      !ERROR: No explicit type declared for 'i'
13      if (pc(i) == u) then
14        f = .true.
15        return
16      end if
17    end do
18    f = .false.
19  end
20end module
21