1! PR fortran/77500
2! { dg-do compile }
3
4program pr77500
5   real :: x
6!$omp atomic write
7   x = f()
8!$omp end atomic
9end
10