gcc/testsuite/gfortran.dg/gomp/pr77374.f08

! PR fortran/77374
! { dg-do compile }

subroutine foo (a, b)
  integer :: a, b
!$omp atomic
  b = b + a
!$omp atomic
  z(1) = z(1) + 1	! { dg-error "must have the pointer attribute" }
end subroutine
subroutine bar (a, b)
  integer :: a, b
  interface
    function baz (i) result (res)
      integer, pointer :: res
      integer :: i
    end function
  end interface
!$omp atomic
  baz (i) = 1		! { dg-error "unexpected" }
end subroutine