URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr41344.f] - Rev 694
Compare with Previous | Blame | 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