21 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Regression test for subscript error recovery3module m4 implicit none5 integer, parameter :: n = 36 integer, parameter :: pc(n) = [0, 5, 6]7 contains8 logical function f(u)9 integer :: u10 !ERROR: No explicit type declared for 'i'11 do i = 1, n12 !ERROR: No explicit type declared for 'i'13 if (pc(i) == u) then14 f = .true.15 return16 end if17 end do18 f = .false.19 end20end module21