(root)/
gcc-13.2.0/
gcc/
testsuite/
gfortran.dg/
goacc/
firstprivate-1.f95
! { dg-do compile }

program test
  integer a, b(100)

  !$acc parallel firstprivate (a, b)
  !$acc end parallel

  !$acc parallel firstprivate (b(10:20)) ! { dg-error "Syntax error in OpenMP variable list" }
  !$acc end parallel ! { dg-error "Unexpected !\\\$ACC END PARALLEL statement" }
end program test