2017-09-21 Cesar Philippidis <cesar@codesourcery.com>
gcc/fortran/
* openmp.c (gfc_match_oacc_wait): Don't restrict wait directive
arguments to constant integers.
gcc/testsuite/
* gfortran.dg/goacc/wait.f90: New test.
@@ -2185,8 +2185,7 @@ gfc_match_oacc_wait (void)
}
if (!gfc_resolve_expr (el->expr)
- || el->expr->ts.type != BT_INTEGER || el->expr->rank != 0
- || el->expr->expr_type != EXPR_CONSTANT)
+ || el->expr->ts.type != BT_INTEGER || el->expr->rank != 0)
{
gfc_error ("WAIT clause at %L requires a scalar INTEGER expression",
&el->expr->where);
new file mode 100644
@@ -0,0 +1,12 @@
+! Ensure that ACC WAIT accept integer arguments.
+
+subroutine foo (wqueue)
+ implicit none
+ integer :: wqueue, waitno
+ integer, parameter :: waitp = 100
+
+ !$acc wait (wqueue)
+ !$acc wait (waitno)
+ !$acc wait (waitp)
+ !$acc wait (0)
+end subroutine foo