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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.7.1.f90] - Blame information for rev 823

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


! { dg-do compile }
SUBROUTINE A7_1(A,N)
INTEGER OMP_GET_THREAD_NUM
REAL A(*)
INTEGER I, MYOFFSET, N
!$OMP PARALLEL PRIVATE(MYOFFSET)
       MYOFFSET = OMP_GET_THREAD_NUM()*N
       DO I = 1, N
          A(MYOFFSET+I) = FLOAT(I)
       ENDDO
!$OMP END PARALLEL
END SUBROUTINE A7_1

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2			`SUBROUTINE A7_1(A,N)`
3			`INTEGER OMP_GET_THREAD_NUM`
4			`REAL A(*)`
5			`INTEGER I, MYOFFSET, N`
6			`!$OMP PARALLEL PRIVATE(MYOFFSET)`
7			`MYOFFSET = OMP_GET_THREAD_NUM()*N`
8			`DO I = 1, N`
9			`A(MYOFFSET+I) = FLOAT(I)`
10			`ENDDO`
11			`!$OMP END PARALLEL`
12			`END SUBROUTINE A7_1`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.7.1.f90] - Blame information for rev 823