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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr41344.f] - Blame information for rev 694

Details | Compare with Previous | View Log


      subroutine xrotate(nerr)
 
      common /dfm/ndfl
 
*$omp parallel private(ix)
      ix = 0
*$omp do
      do i=1,ndfl
         ix = ix + 1
         if (ix.gt.5) go to 9000 ! { dg-error "invalid (exit|branch)" }
      enddo
*$omp end do
*$omp end parallel
 
9000  continue
      end

Line No.	Rev	Author	Line
1	694	jeremybenn	`subroutine xrotate(nerr)`
2
3			`common /dfm/ndfl`
4
5			`*$omp parallel private(ix)`
6			`ix = 0`
7			`*$omp do`
8			`do i=1,ndfl`
9			`ix = ix + 1`
10			`if (ix.gt.5) go to 9000 ! { dg-error "invalid (exit\|branch)" }`
11			`enddo`
12			`*$omp end do`
13			`*$omp end parallel`
14
15			`9000 continue`
16			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr41344.f] - Blame information for rev 694