19 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2 3subroutine dont_crash(values)4 implicit none5 integer, parameter :: n = 1006 real :: values(n)7 integer :: i8 !ERROR: No explicit type declared for 'sum'9 sum = 010 !ERROR: No explicit type declared for 'sum'11 !$omp parallel do reduction(+:sum)12 do i = 1, n13 !ERROR: No explicit type declared for 'sum'14 !ERROR: No explicit type declared for 'sum'15 sum = sum + values(i)16 end do17end subroutine dont_crash18 19