Subversion Repositories openrisc

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