! { 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 | |