| ! { dg-do compile } | |
| SUBROUTINE A13(X, Y) | |
| REAL X(*), Y(*) | |
| INTEGER IX_NEXT, IY_NEXT | |
| !$OMP PARALLEL SHARED(X, Y) PRIVATE(IX_NEXT, IY_NEXT) | |
| !$OMP CRITICAL(XAXIS) | |
| CALL DEQUEUE(IX_NEXT, X) | |
| !$OMP END CRITICAL(XAXIS) | |
| CALL WORK(IX_NEXT, X) | |
| !$OMP CRITICAL(YAXIS) | |
| CALL DEQUEUE(IY_NEXT,Y) | |
| !$OMP END CRITICAL(YAXIS) | |
| CALL WORK(IY_NEXT, Y) | |
| !$OMP END PARALLEL | |
| END SUBROUTINE A13 | |