diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/gomp/pr41344.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/pr41344.f | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/gomp/pr41344.f b/gcc/testsuite/gfortran.dg/gomp/pr41344.f new file mode 100644 index 000000000..66ae8b35d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/gomp/pr41344.f @@ -0,0 +1,16 @@ + 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 |