1! { dg-do compile } 2 SUBROUTINE A13(X, Y) 3 REAL X(*), Y(*) 4 INTEGER IX_NEXT, IY_NEXT 5!$OMP PARALLEL SHARED(X, Y) PRIVATE(IX_NEXT, IY_NEXT) 6!$OMP CRITICAL(XAXIS) 7 CALL DEQUEUE(IX_NEXT, X) 8!$OMP END CRITICAL(XAXIS) 9 CALL WORK(IX_NEXT, X) 10!$OMP CRITICAL(YAXIS) 11 CALL DEQUEUE(IY_NEXT,Y) 12!$OMP END CRITICAL(YAXIS) 13 CALL WORK(IY_NEXT, Y) 14!$OMP END PARALLEL 15 END SUBROUTINE A13 16 17