flang/test/Semantics/OpenMP/name-conflict.f90

   1 !RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
   2 module m
   3
   4 contains
   5
   6 subroutine foo1()
   7   integer :: baz1
   8 !ERROR: 'baz1' must be a variable
   9 !$omp parallel do shared(baz1)
  10   baz1: do i = 1, 100
  11   enddo baz1
  12 !$omp end parallel do
  13 end subroutine
  14
  15 subroutine foo2()
  16   !implicit baz2
  17 !ERROR: 'baz2' must be a variable
  18 !$omp parallel do shared(baz2)
  19   baz2: do i = 1, 100
  20   enddo baz2
  21 !$omp end parallel do
  22 end subroutine
  23
  24 end module m