16 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp -Werror2 3subroutine g4end5 6subroutine f(x)7 implicit none8 integer :: x9 10!ERROR: CRITICAL construct name 'g' conflicts with a previous declaration11 !$omp critical(g)12 x = 013!ERROR: CRITICAL construct name 'g' conflicts with a previous declaration14 !$omp end critical(g)15end16