!RUN: %flang_fc1 -fdebug-unparse -fopenacc %s | FileCheck %s
      subroutine s(a,b,n)
*$acc routine gang
      real a(n), b(n)
      integer(8) j
*$acc loop gang vector worker
      do 10 j = 1, n
*$acc atomic update
10    a(j) = a(j) + b(j)
      end

!CHECK: SUBROUTINE s (a, b, n)
!CHECK: !$ACC ROUTINE GANG
!CHECK:  REAL a(n), b(n)
!CHECK: !$ACC LOOP GANG VECTOR WORKER
!CHECK:  DO j=1_4,n
!CHECK: !$ACC ATOMIC UPDATE
!CHECK:   10  a(j)=a(j)+b(j)
!CHECK:  END DO
!CHECK: END SUBROUTINE