1! PR fortran/77374 2! { dg-do compile } 3 4subroutine foo (a, b) 5 integer :: a, b 6!$omp atomic 7 b = b + a 8!$omp atomic 9 z(1) = z(1) + 1 ! { dg-error "must have the pointer attribute" } 10end subroutine 11subroutine bar (a, b) 12 integer :: a, b 13 interface 14 function baz (i) result (res) 15 integer, pointer :: res 16 integer :: i 17 end function 18 end interface 19!$omp atomic 20 baz (i) = 1 ! { dg-error "unexpected" } 21end subroutine 22