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