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