gcc/testsuite/gfortran.dg/goacc/atomic-1.f90

! { dg-do compile }
!
! PR fortran/93462
!
! Contributed by G. Steinmetz
!
program p
   integer :: n = 1
   integer :: a
!$acc atomic write
   a = f(n) - f(n)
contains
   integer function f(x)
      integer, intent(in) :: x
      f = x
   end
end