| ! { dg-do compile } | |
| SUBROUTINE A7_2(A,B,N,I1,I2) | |
| REAL A(*), B(*) | |
| INTEGER I1, I2, N | |
| !$OMP PARALLEL SHARED(A,B,I1,I2) | |
| !$OMP SECTIONS | |
| !$OMP SECTION | |
| DO I1 = I1, N | |
| IF (A(I1).NE.0.0) EXIT | |
| ENDDO | |
| !$OMP SECTION | |
| DO I2 = I2, N | |
| IF (B(I2).NE.0.0) EXIT | |
| ENDDO | |
| !$OMP END SECTIONS | |
| !$OMP SINGLE | |
| IF (I1.LE.N) PRINT *, "ITEMS IN A UP TO ", I1, " ARE ALL ZERO." | |
| IF (I2.LE.N) PRINT *, "ITEMS IN B UP TO ", I2, " ARE ALL ZERO." | |
| !$OMP END SINGLE | |
| !$OMP END PARALLEL | |
| END SUBROUTINE A7_2 |