(root)/
gcc-13.2.0/
gcc/
testsuite/
gfortran.dg/
goacc/
fixed-3.f
      IMPLICIT NONE

      INTEGER DEV

!$ACC PARALLEL
      DEV = 0
!$ACC END PARALLEL

!$ACC PARALLEL
      DEV = 0
!$ACC END PARALLEL

      END