diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/gomp/crayptr1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/crayptr1.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/gomp/crayptr1.f90 b/gcc/testsuite/gfortran.dg/gomp/crayptr1.f90 index fca5606e032..d246e8f04cf 100644 --- a/gcc/testsuite/gfortran.dg/gomp/crayptr1.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/crayptr1.f90 @@ -36,10 +36,10 @@ !$omp end parallel ip3 = loc (i) -!$omp parallel firstprivate (ip3) ! { dg-error "Cray pointer 'ip3' in FIRSTPRIVATE clause" } +!$omp parallel firstprivate (ip3) !$omp end parallel -!$omp parallel do lastprivate (ip4) ! { dg-error "Cray pointer 'ip4' in LASTPRIVATE clause" } +!$omp parallel do lastprivate (ip4) do i = 1, 10 if (i .eq. 10) ip4 = loc (i) end do |
