(root)/
gcc-13.2.0/
gcc/
testsuite/
gfortran.dg/
goacc/
wait.f90
! Ensure that ACC WAIT accept integer arguments.

! { dg-additional-options -Wuninitialized }

subroutine foo (wqueue)
  implicit none
  integer :: wqueue, waitno
  ! { dg-note {'waitno' was declared here} {} { target *-*-* } .-1 }
  integer, parameter :: waitp = 100

  !$acc wait (wqueue)
  !$acc wait (waitno)
  ! { dg-warning {'waitno' is used uninitialized} {} { target *-*-* } .-1 }
  !$acc wait (waitp)
  !$acc wait (0)
end subroutine foo