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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [pr34020.f90] - Blame information for rev 741

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


! PR fortran/34020
! { dg-do run }
 
      subroutine atomic_add(lhs, rhs)
      real lhs, rhs
!$omp atomic
      lhs = rhs + lhs
      end
 
      real lhs, rhs
      integer i
      lhs = 0
      rhs = 1
!$omp parallel do num_threads(8) shared(lhs, rhs)
      do i = 1, 300000
        call atomic_add(lhs, rhs)
      enddo
      if (lhs .ne. 300000) call abort
      end

Line No.	Rev	Author	Line
1	735	jeremybenn	`! PR fortran/34020`
2			`! { dg-do run }`
3
4			`subroutine atomic_add(lhs, rhs)`
5			`real lhs, rhs`
6			`!$omp atomic`
7			`lhs = rhs + lhs`
8			`end`
9
10			`real lhs, rhs`
11			`integer i`
12			`lhs = 0`
13			`rhs = 1`
14			`!$omp parallel do num_threads(8) shared(lhs, rhs)`
15			`do i = 1, 300000`
16			`call atomic_add(lhs, rhs)`
17			`enddo`
18			`if (lhs .ne. 300000) call abort`
19			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [pr34020.f90] - Blame information for rev 741