re PR translation/80189 (gimplify.c: check whether parallel/task/teams should be translated)

	PR translation/80189
	* gimplify.c (omp_default_clause): Use %qs instead of %s in
	diagnostic messages.
testsuite/
	* g++.dg/gomp/predetermined-1.C: Adjust expected diagnostics.
	* g++.dg/gomp/sharing-1.C: Likewise.
	* gfortran.dg/gomp/pr44536.f90: Likewise.
	* gfortran.dg/gomp/pr44036-1.f90: Likewise.
	* gfortran.dg/gomp/sharing-3.f90: Likewise.
	* gfortran.dg/gomp/crayptr3.f90: Likewise.
	* gfortran.dg/gomp/pr33439.f90: Likewise.
	* gfortran.dg/gomp/appendix-a/a.24.1.f90: Likewise.
	* gfortran.dg/gomp/sharing-1.f90: Likewise.
	* gfortran.dg/gomp/sharing-2.f90: Likewise.
	* gcc.dg/gomp/appendix-a/a.24.1.c: Likewise.
	* gcc.dg/gomp/sharing-1.c: Likewise.

From-SVN: r246599

8 files changed, 18 insertions, 18 deletions

diff --git a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.24.1.f90 b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.24.1.f90
index e5b9545..e362902 100644
--- a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.24.1.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.24.1.f90
@@ -19,7 +19,7 @@
       X=1      ! O.K. - X is THREADPRIVATE
       Z(I) = Y ! Error - cannot reference I or Y here
 ! { dg-error "'i' not specified" "" { target *-*-* } 20 } */
-! { dg-error "enclosing parallel" "" { target *-*-* } 14 } */
+! { dg-error "enclosing 'parallel'" "" { target *-*-* } 14 } */
 ! { dg-error "'y' not specified" "" { target *-*-* } 20 }  */
 !$OMP DO firstprivate(y)
       DO I = 1,10
diff --git a/gcc/testsuite/gfortran.dg/gomp/crayptr3.f90 b/gcc/testsuite/gfortran.dg/gomp/crayptr3.f90
index be8f5a0..15bf864 100644
--- a/gcc/testsuite/gfortran.dg/gomp/crayptr3.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/crayptr3.f90
@@ -16,7 +16,7 @@
   a = 1
 !$omp end parallel
 
-!$omp parallel default (none)	! { dg-error "enclosing parallel" }
-  a = 1		! { dg-error "'ip' not specified in enclosing parallel" }
+!$omp parallel default (none)	! { dg-error "enclosing 'parallel'" }
+  a = 1		! { dg-error "'ip' not specified in enclosing 'parallel'" }
 !$omp end parallel
 end
diff --git a/gcc/testsuite/gfortran.dg/gomp/pr33439.f90 b/gcc/testsuite/gfortran.dg/gomp/pr33439.f90
index f7db759..42fa221 100644
--- a/gcc/testsuite/gfortran.dg/gomp/pr33439.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/pr33439.f90
@@ -5,9 +5,9 @@
 subroutine pr33439_1
   integer :: s, i
   s = 4
-!$omp parallel default(none)	! { dg-error "enclosing parallel" }
+!$omp parallel default(none)	! { dg-error "enclosing 'parallel'" }
   call somethingelse
-!$omp do schedule(static, s)	! { dg-error "not specified in enclosing parallel" }
+!$omp do schedule(static, s)	! { dg-error "not specified in enclosing 'parallel'" }
   do i = 1, 8
     call something
   end do
@@ -18,8 +18,8 @@ end subroutine pr33439_1
 subroutine pr33439_2
   integer :: s, i
   s = 4
-!$omp parallel default(none)	! { dg-error "enclosing parallel" }
-!$omp do schedule(static, s)	! { dg-error "not specified in enclosing parallel" }
+!$omp parallel default(none)	! { dg-error "enclosing 'parallel'" }
+!$omp do schedule(static, s)	! { dg-error "not specified in enclosing 'parallel'" }
   do i = 1, 8
     call something
   end do
@@ -30,7 +30,7 @@ end subroutine pr33439_2
 subroutine pr33439_3
   integer :: s, i
   s = 4
-!$omp parallel do default(none) schedule(static, s) ! { dg-error "enclosing parallel" }
+!$omp parallel do default(none) schedule(static, s) ! { dg-error "enclosing 'parallel'" }
   do i = 1, 8
     call something
   end do
diff --git a/gcc/testsuite/gfortran.dg/gomp/pr44036-1.f90 b/gcc/testsuite/gfortran.dg/gomp/pr44036-1.f90
index a4633a3..1caa93df 100644
--- a/gcc/testsuite/gfortran.dg/gomp/pr44036-1.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/pr44036-1.f90
@@ -11,14 +11,14 @@ subroutine foo(a, b)
 !$omp parallel default(none) private (x)
   x = a(4)
 !$omp end parallel
-!$omp parallel default(none) private (x)	! { dg-error "enclosing parallel" }
+!$omp parallel default(none) private (x)	! { dg-error "enclosing 'parallel'" }
   x = b(5)					! { dg-error "not specified in" }
 !$omp end parallel
 !$omp parallel default(none) private (x)
   x = c(6)
 !$omp end parallel
   d => a
-!$omp parallel default(none) private (x)	! { dg-error "enclosing parallel" }
+!$omp parallel default(none) private (x)	! { dg-error "enclosing 'parallel'" }
   x = d(7)					! { dg-error "not specified in" }
 !$omp end parallel
 end
diff --git a/gcc/testsuite/gfortran.dg/gomp/pr44536.f90 b/gcc/testsuite/gfortran.dg/gomp/pr44536.f90
index 0dc896d..4fcf5d1 100644
--- a/gcc/testsuite/gfortran.dg/gomp/pr44536.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/pr44536.f90
@@ -4,7 +4,7 @@
       subroutine foo (a, i, j)
         integer, dimension(:) :: a
         integer :: i, j
-!$omp parallel default(none) shared(i, j)	! { dg-error "enclosing parallel" }
+!$omp parallel default(none) shared(i, j)	! { dg-error "enclosing 'parallel'" }
         j=a(i)					! { dg-error "not specified in" }
 !$omp end parallel
       end subroutine
diff --git a/gcc/testsuite/gfortran.dg/gomp/sharing-1.f90 b/gcc/testsuite/gfortran.dg/gomp/sharing-1.f90
index 7a107ff..ad9149e 100644
--- a/gcc/testsuite/gfortran.dg/gomp/sharing-1.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/sharing-1.f90
@@ -9,7 +9,7 @@
 !$omp threadprivate (/thrblk/, thrpriv)
   s = 1
 !$omp parallel do default (none) &
-!$omp & private (p) shared (s) ! { dg-error "enclosing parallel" }
+!$omp & private (p) shared (s) ! { dg-error "enclosing 'parallel'" }
   do i = 1, 64
     call foo (thrpriv)	! Predetermined - threadprivate
     call foo (thr)	! Predetermined - threadprivate
diff --git a/gcc/testsuite/gfortran.dg/gomp/sharing-2.f90 b/gcc/testsuite/gfortran.dg/gomp/sharing-2.f90
index b7d7e07..bf55190 100644
--- a/gcc/testsuite/gfortran.dg/gomp/sharing-2.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/sharing-2.f90
@@ -9,7 +9,7 @@
     j = 8
   end do
 !$omp end parallel do
-!$omp parallel default (none) shared (a) ! { dg-error "enclosing parallel" }
+!$omp parallel default (none) shared (a) ! { dg-error "enclosing 'parallel'" }
   i = 1
   j = 1
   k = 1
@@ -28,7 +28,7 @@
   end do
 !$omp end single
 !$omp end parallel
-!$omp parallel default (none) shared (a) ! { dg-error "enclosing parallel" }
+!$omp parallel default (none) shared (a) ! { dg-error "enclosing 'parallel'" }
   i = 1		! { dg-error "not specified in" }
   j = 1		! { dg-error "not specified in" }
   k = 1		! { dg-error "not specified in" }
@@ -54,21 +54,21 @@
   j = 1
   k = 1
 !$omp end parallel
-!$omp parallel default (none) shared (a) ! { dg-error "enclosing parallel" }
+!$omp parallel default (none) shared (a) ! { dg-error "enclosing 'parallel'" }
   i = 1		! { dg-error "not specified in" }
 !$omp do
   do i = 1, 10
     a(i, 1) = i + 1
   end do
 !$omp end parallel
-!$omp parallel default (none) shared (a) ! { dg-error "enclosing parallel" }
+!$omp parallel default (none) shared (a) ! { dg-error "enclosing 'parallel'" }
   i = 1		! { dg-error "not specified in" }
 !$omp parallel do default (none) shared (a)
   do i = 1, 10
     a(i, 1) = i + 1
   end do
 !$omp end parallel
-!$omp parallel default (none) shared (a) ! { dg-error "enclosing parallel" }
+!$omp parallel default (none) shared (a) ! { dg-error "enclosing 'parallel'" }
   i = 1		! { dg-error "not specified in" }
 !$omp parallel default (none) shared (a, i)
   i = 2
diff --git a/gcc/testsuite/gfortran.dg/gomp/sharing-3.f90 b/gcc/testsuite/gfortran.dg/gomp/sharing-3.f90
index 05be382..221ec00 100644
--- a/gcc/testsuite/gfortran.dg/gomp/sharing-3.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/sharing-3.f90
@@ -25,7 +25,7 @@ subroutine foo (vara, varb, varc, vard, n)
     vard(1) = 1
     vare(1) = 1
   !$omp end parallel
-  !$omp parallel default(none)	! { dg-error "enclosing parallel" }
+  !$omp parallel default(none)	! { dg-error "enclosing 'parallel'" }
     !$omp master
       vara(1) = 1		! { dg-error "not specified" }
       varb(1) = 1		! Assumed-size is predetermined