25 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2module m3 4contains5 6subroutine foo1()7 integer :: baz18!ERROR: 'baz1' must be a variable9!$omp parallel do shared(baz1)10 baz1: do i = 1, 10011 enddo baz112!$omp end parallel do13end subroutine14 15subroutine foo2()16 !implicit baz217!ERROR: 'baz2' must be a variable18!$omp parallel do shared(baz2)19 baz2: do i = 1, 10020 enddo baz221!$omp end parallel do22end subroutine23 24end module m25