Mercurial > hg > CbC > CbC_gcc

view libgomp/testsuite/libgomp.fortran/appendix-a/a.21.1.f90 @ 63:b7f97abdc517 gcc-4.6-20100522

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc from gcc-4.5.0 to gcc-4.6
author ryoma <e075725@ie.u-ryukyu.ac.jp>
date Mon, 24 May 2010 12:47:05 +0900
parents a06113de4d67
children
line wrap: on
line source

! { dg-do compile }
      SUBROUTINE WORK(K)
        INTEGER k
!$OMP ORDERED
        WRITE(*,*) K
!$OMP END ORDERED
      END SUBROUTINE WORK
      SUBROUTINE SUBA21(LB, UB, STRIDE)
        INTEGER LB, UB, STRIDE
        INTEGER I
!$OMP PARALLEL DO ORDERED SCHEDULE(DYNAMIC)
        DO I=LB,UB,STRIDE
          CALL WORK(I)
        END DO
!$OMP END PARALLEL DO
      END SUBROUTINE SUBA21
      PROGRAM A21
        CALL SUBA21(1,100,5)
      END PROGRAM A21