! 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