URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a.21.1.f90] - Blame information for rev 856

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	273	jeremybenn	`! { dg-do compile }`
2			`SUBROUTINE WORK(K)`
3			`INTEGER k`
4			`!$OMP ORDERED`
5			`WRITE(,) K`
6			`!$OMP END ORDERED`
7			`END SUBROUTINE WORK`
8			`SUBROUTINE SUBA21(LB, UB, STRIDE)`
9			`INTEGER LB, UB, STRIDE`
10			`INTEGER I`
11			`!$OMP PARALLEL DO ORDERED SCHEDULE(DYNAMIC)`
12			`DO I=LB,UB,STRIDE`
13			`CALL WORK(I)`
14			`END DO`
15			`!$OMP END PARALLEL DO`
16			`END SUBROUTINE SUBA21`
17			`PROGRAM A21`
18			`CALL SUBA21(1,100,5)`
19			`END PROGRAM A21`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a.21.1.f90] - Blame information for rev 856