1! PR c/101297
2
3module m
4implicit none
5integer :: i
6contains
7subroutine foo ()
8 !$omp atomic update, ! { dg-error "Clause expected at .1. after trailing comma" }
9 i = i + 1
10 !$omp atomic update,, ! { dg-error "Failed to match clause" }
11 i = i + 1
12end
13end module
14