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