1! { dg-do compile }
2
3SUBROUTINE A7_2(A,B,N,I1,I2)
4REAL A(*), B(*)
5INTEGER I1, I2, N
6!$OMP PARALLEL SHARED(A,B,I1,I2)
7!$OMP SECTIONS
8!$OMP SECTION
9     DO I1 = I1, N
10       IF (A(I1).NE.0.0) EXIT
11     ENDDO
12!$OMP SECTION
13     DO I2 = I2, N
14       IF (B(I2).NE.0.0) EXIT
15     ENDDO
16!$OMP END SECTIONS
17!$OMP SINGLE
18    IF (I1.LE.N) PRINT *, "ITEMS IN A UP TO ", I1, " ARE ALL ZERO."
19    IF (I2.LE.N) PRINT *, "ITEMS IN B UP TO ", I2, " ARE ALL ZERO."
20!$OMP END SINGLE
21!$OMP END PARALLEL
22END SUBROUTINE A7_2
23