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