! PR c/101297

module m
implicit none
integer :: i
contains
subroutine foo ()
  !$omp atomic update,	! { dg-error "Clause expected at .1. after trailing comma" }
  i = i + 1
  !$omp atomic update,,	! { dg-error "Failed to match clause" }
  i = i + 1
end
end module