c++, v2: Incremental fix for g++.dg/gomp/for-21.C [PR84469]

Message ID Y4iCpoNWlMFJF4T5@tucnak
State Unresolved
Headers
Series c++, v2: Incremental fix for g++.dg/gomp/for-21.C [PR84469] |

Checks

Context Check Description
snail/gcc-patch-check warning Git am fail log

Commit Message

Jakub Jelinek Dec. 1, 2022, 10:32 a.m. UTC
  On Wed, Nov 30, 2022 at 01:52:08PM -0500, Jason Merrill wrote:
> It looks like we're already deducing the type for the underlying S variable
> in cp_convert_omp_range_for, we just aren't updating the types of the
> individual bindings.

You're right.  With this patch (still incremental against the base PR84469
patch) we get the nicer diagnostics in all cases.

Regtested successfully on x86_64-linux (g++ gomp.exp/goacc.exp/goacc-gomp.exp
and libgomp's c++.exp), ok for trunk (including the base patch)
if it passes full bootstrap/regtest?

2022-12-01  Jakub Jelinek  <jakub@redhat.com>

	PR c++/84469
gcc/c-family/
	* c-omp.cc (c_omp_is_loop_iterator): For range for with structured
	binding return TREE_VEC_LENGTH (d->declv) even if decl is equal
	to any of the structured binding decls.
gcc/cp/
	* parser.cc (cp_convert_omp_range_for): After do_auto_deduction if
	!processing_template_decl call cp_finish_decomp with
	processing_template_decl temporarily incremented.
gcc/testsuite/
	* g++.dg/gomp/for-21.C (f3, f6, f9): Adjust expected diagnostics.
	* g++.dg/gomp/for-22.C: New test.



	Jakub
  

Comments

Jason Merrill Dec. 1, 2022, 6:21 p.m. UTC | #1
On 12/1/22 05:32, Jakub Jelinek wrote:
> On Wed, Nov 30, 2022 at 01:52:08PM -0500, Jason Merrill wrote:
>> It looks like we're already deducing the type for the underlying S variable
>> in cp_convert_omp_range_for, we just aren't updating the types of the
>> individual bindings.
> 
> You're right.  With this patch (still incremental against the base PR84469
> patch) we get the nicer diagnostics in all cases.
> 
> Regtested successfully on x86_64-linux (g++ gomp.exp/goacc.exp/goacc-gomp.exp
> and libgomp's c++.exp), ok for trunk (including the base patch)
> if it passes full bootstrap/regtest?

OK, thanks.

> 2022-12-01  Jakub Jelinek  <jakub@redhat.com>
> 
> 	PR c++/84469
> gcc/c-family/
> 	* c-omp.cc (c_omp_is_loop_iterator): For range for with structured
> 	binding return TREE_VEC_LENGTH (d->declv) even if decl is equal
> 	to any of the structured binding decls.
> gcc/cp/
> 	* parser.cc (cp_convert_omp_range_for): After do_auto_deduction if
> 	!processing_template_decl call cp_finish_decomp with
> 	processing_template_decl temporarily incremented.
> gcc/testsuite/
> 	* g++.dg/gomp/for-21.C (f3, f6, f9): Adjust expected diagnostics.
> 	* g++.dg/gomp/for-22.C: New test.
> 
> --- gcc/c-family/c-omp.cc.jj	2022-10-04 10:36:46.515414485 +0200
> +++ gcc/c-family/c-omp.cc	2022-12-01 10:57:56.365253302 +0100
> @@ -1311,10 +1311,11 @@ c_omp_is_loop_iterator (tree decl, struc
>       else if (TREE_CODE (TREE_VEC_ELT (d->declv, i)) == TREE_LIST
>   	     && TREE_CHAIN (TREE_VEC_ELT (d->declv, i))
>   	     && (TREE_CODE (TREE_CHAIN (TREE_VEC_ELT (d->declv, i)))
> -		 == TREE_VEC)
> -	     && decl == TREE_VEC_ELT (TREE_CHAIN (TREE_VEC_ELT (d->declv,
> -						  i)), 2))
> -      return TREE_VEC_LENGTH (d->declv);
> +		 == TREE_VEC))
> +      for (int j = 2;
> +	   j < TREE_VEC_LENGTH (TREE_CHAIN (TREE_VEC_ELT (d->declv, i))); j++)
> +	if (decl == TREE_VEC_ELT (TREE_CHAIN (TREE_VEC_ELT (d->declv, i)), j))
> +	  return TREE_VEC_LENGTH (d->declv);
>     return -1;
>   }
>   
> --- gcc/cp/parser.cc.jj	2022-12-01 10:19:27.000000000 +0100
> +++ gcc/cp/parser.cc	2022-12-01 10:21:30.760450093 +0100
> @@ -43126,8 +43126,16 @@ cp_convert_omp_range_for (tree &this_pre
>         tree t = build_x_indirect_ref (input_location, begin, RO_UNARY_STAR,
>   				     NULL_TREE, tf_none);
>         if (!error_operand_p (t))
> -	TREE_TYPE (orig_decl) = do_auto_deduction (TREE_TYPE (orig_decl),
> -						   t, auto_node);
> +	{
> +	  TREE_TYPE (orig_decl) = do_auto_deduction (TREE_TYPE (orig_decl),
> +						     t, auto_node);
> +	  if (decomp_first_name)
> +	    {
> +	      ++processing_template_decl;
> +	      cp_finish_decomp (orig_decl, decomp_first_name, decomp_cnt);
> +	      --processing_template_decl;
> +	    }
> +	}
>       }
>   
>     tree v = make_tree_vec (decomp_cnt + 3);
> --- gcc/testsuite/g++.dg/gomp/for-21.C.jj	2022-11-30 10:29:09.332186135 +0100
> +++ gcc/testsuite/g++.dg/gomp/for-21.C	2022-12-01 11:05:40.888414600 +0100
> @@ -24,9 +24,9 @@ void
>   f3 (S (&a)[10])
>   {
>     #pragma omp for collapse (2)
> -  for (auto [i, j, k] : a)			// { dg-error "use of 'i' before deduction of 'auto'" "" { target *-*-* } .+1 }
> -    for (int l = i; l < j; l += k)		// { dg-error "use of 'j' before deduction of 'auto'" }
> -      ;						// { dg-error "use of 'k' before deduction of 'auto'" "" { target *-*-* } .-1 }
> +  for (auto [i, j, k] : a)			// { dg-error "initializer expression refers to iteration variable 'i'" }
> +    for (int l = i; l < j; l += k)		// { dg-error "condition expression refers to iteration variable 'j'" }
> +      ;						// { dg-error "increment expression refers to iteration variable 'k'" "" { target *-*-* } .-2 }
>   }
>   
>   template <int N>
> @@ -54,9 +54,9 @@ void
>   f6 (S (&a)[10])
>   {
>     #pragma omp for collapse (2)
> -  for (auto [i, j, k] : a)			// { dg-error "use of 'i' before deduction of 'auto'" "" { target *-*-* } .-1 }
> -    for (int l = i; l < j; l += k)		// { dg-error "use of 'j' before deduction of 'auto'" }
> -      ;						// { dg-error "use of 'k' before deduction of 'auto'" "" { target *-*-* } .-3 }
> +  for (auto [i, j, k] : a)			// { dg-error "initializer expression refers to iteration variable 'i'" "" { target *-*-* } .-1 }
> +    for (int l = i; l < j; l += k)		// { dg-error "condition expression refers to iteration variable 'j'" }
> +      ;						// { dg-error "increment expression refers to iteration variable 'k'" "" { target *-*-* } .-3 }
>   }
>   
>   template <typename T>
> @@ -84,9 +84,9 @@ void
>   f9 (U (&a)[10])
>   {
>     #pragma omp for collapse (2)
> -  for (auto [i, j, k] : a)			// { dg-error "use of 'i' before deduction of 'auto'" "" { target *-*-* } .-1 }
> -    for (T l = i; l < j; l += k)		// { dg-error "use of 'j' before deduction of 'auto'" }
> -      ;						// { dg-error "use of 'k' before deduction of 'auto'" "" { target *-*-* } .-3 }
> +  for (auto [i, j, k] : a)			// { dg-error "initializer expression refers to iteration variable 'i'" "" { target *-*-* } .-1 }
> +    for (T l = i; l < j; l += k)		// { dg-error "condition expression refers to iteration variable 'j'" }
> +      ;						// { dg-error "increment expression refers to iteration variable 'k'" "" { target *-*-* } .-3 }
>   }
>   
>   void
> --- gcc/testsuite/g++.dg/gomp/for-22.C.jj	2022-12-01 10:17:47.117785354 +0100
> +++ gcc/testsuite/g++.dg/gomp/for-22.C	2022-12-01 11:08:19.578078371 +0100
> @@ -0,0 +1,57 @@
> +// { dg-do compile { target c++17 } }
> +
> +namespace std {
> +  template<typename T> struct tuple_size;
> +  template<int, typename> struct tuple_element;
> +}
> +
> +struct A {
> +  int i;
> +  template <int I> int& get() { return i; }
> +};
> +
> +template<> struct std::tuple_size<A> { static const int value = 3; };
> +template<int I> struct std::tuple_element<I,A> { using type = int; };
> +
> +struct B {
> +  A *begin();
> +  A *end();
> +};
> +
> +void
> +f1 (B a)
> +{
> +  #pragma omp for collapse (2)
> +  for (auto [i, j, k] : a)			// { dg-error "initializer expression refers to iteration variable 'i'" "" { target *-*-* } .+1 }
> +    for (int l = i; l < j; l += k)		// { dg-error "condition expression refers to iteration variable 'j'" }
> +      ;						// { dg-error "increment expression refers to iteration variable 'k'" "" { target *-*-* } .-1 }
> +}
> +
> +template <int N>
> +void
> +f2 (B a)
> +{
> +  #pragma omp for collapse (2)
> +  for (auto [i, j, k] : a)			// { dg-error "initializer expression refers to iteration variable 'i'" "" { target *-*-* } .-1 }
> +    for (int l = i; l < j; l += k)		// { dg-error "condition expression refers to iteration variable 'j'" }
> +      ;						// { dg-error "increment expression refers to iteration variable 'k'" "" { target *-*-* } .-3 }
> +}
> +
> +template <typename T>
> +void
> +f3 (T a)
> +{
> +  #pragma omp for collapse (2)
> +  for (auto [i, j, k] : a)			// { dg-error "initializer expression refers to iteration variable 'i'" "" { target *-*-* } .-1 }
> +    for (int l = i; l < j; l += k)		// { dg-error "condition expression refers to iteration variable 'j'" }
> +      ;						// { dg-error "increment expression refers to iteration variable 'k'" "" { target *-*-* } .-3 }
> +}
> +
> +void
> +test ()
> +{
> +  B b;
> +  f1 (b);
> +  f2 <0> (b);
> +  f3 <B> (b);
> +}
> 
> 
> 	Jakub
>
  

Patch

--- gcc/c-family/c-omp.cc.jj	2022-10-04 10:36:46.515414485 +0200
+++ gcc/c-family/c-omp.cc	2022-12-01 10:57:56.365253302 +0100
@@ -1311,10 +1311,11 @@  c_omp_is_loop_iterator (tree decl, struc
     else if (TREE_CODE (TREE_VEC_ELT (d->declv, i)) == TREE_LIST
 	     && TREE_CHAIN (TREE_VEC_ELT (d->declv, i))
 	     && (TREE_CODE (TREE_CHAIN (TREE_VEC_ELT (d->declv, i)))
-		 == TREE_VEC)
-	     && decl == TREE_VEC_ELT (TREE_CHAIN (TREE_VEC_ELT (d->declv,
-						  i)), 2))
-      return TREE_VEC_LENGTH (d->declv);
+		 == TREE_VEC))
+      for (int j = 2;
+	   j < TREE_VEC_LENGTH (TREE_CHAIN (TREE_VEC_ELT (d->declv, i))); j++)
+	if (decl == TREE_VEC_ELT (TREE_CHAIN (TREE_VEC_ELT (d->declv, i)), j))
+	  return TREE_VEC_LENGTH (d->declv);
   return -1;
 }
 
--- gcc/cp/parser.cc.jj	2022-12-01 10:19:27.000000000 +0100
+++ gcc/cp/parser.cc	2022-12-01 10:21:30.760450093 +0100
@@ -43126,8 +43126,16 @@  cp_convert_omp_range_for (tree &this_pre
       tree t = build_x_indirect_ref (input_location, begin, RO_UNARY_STAR,
 				     NULL_TREE, tf_none);
       if (!error_operand_p (t))
-	TREE_TYPE (orig_decl) = do_auto_deduction (TREE_TYPE (orig_decl),
-						   t, auto_node);
+	{
+	  TREE_TYPE (orig_decl) = do_auto_deduction (TREE_TYPE (orig_decl),
+						     t, auto_node);
+	  if (decomp_first_name)
+	    {
+	      ++processing_template_decl;
+	      cp_finish_decomp (orig_decl, decomp_first_name, decomp_cnt);
+	      --processing_template_decl;
+	    }
+	}
     }
 
   tree v = make_tree_vec (decomp_cnt + 3);
--- gcc/testsuite/g++.dg/gomp/for-21.C.jj	2022-11-30 10:29:09.332186135 +0100
+++ gcc/testsuite/g++.dg/gomp/for-21.C	2022-12-01 11:05:40.888414600 +0100
@@ -24,9 +24,9 @@  void
 f3 (S (&a)[10])
 {
   #pragma omp for collapse (2)
-  for (auto [i, j, k] : a)			// { dg-error "use of 'i' before deduction of 'auto'" "" { target *-*-* } .+1 }
-    for (int l = i; l < j; l += k)		// { dg-error "use of 'j' before deduction of 'auto'" }
-      ;						// { dg-error "use of 'k' before deduction of 'auto'" "" { target *-*-* } .-1 }
+  for (auto [i, j, k] : a)			// { dg-error "initializer expression refers to iteration variable 'i'" }
+    for (int l = i; l < j; l += k)		// { dg-error "condition expression refers to iteration variable 'j'" }
+      ;						// { dg-error "increment expression refers to iteration variable 'k'" "" { target *-*-* } .-2 }
 }
 
 template <int N>
@@ -54,9 +54,9 @@  void
 f6 (S (&a)[10])
 {
   #pragma omp for collapse (2)
-  for (auto [i, j, k] : a)			// { dg-error "use of 'i' before deduction of 'auto'" "" { target *-*-* } .-1 }
-    for (int l = i; l < j; l += k)		// { dg-error "use of 'j' before deduction of 'auto'" }
-      ;						// { dg-error "use of 'k' before deduction of 'auto'" "" { target *-*-* } .-3 }
+  for (auto [i, j, k] : a)			// { dg-error "initializer expression refers to iteration variable 'i'" "" { target *-*-* } .-1 }
+    for (int l = i; l < j; l += k)		// { dg-error "condition expression refers to iteration variable 'j'" }
+      ;						// { dg-error "increment expression refers to iteration variable 'k'" "" { target *-*-* } .-3 }
 }
 
 template <typename T>
@@ -84,9 +84,9 @@  void
 f9 (U (&a)[10])
 {
   #pragma omp for collapse (2)
-  for (auto [i, j, k] : a)			// { dg-error "use of 'i' before deduction of 'auto'" "" { target *-*-* } .-1 }
-    for (T l = i; l < j; l += k)		// { dg-error "use of 'j' before deduction of 'auto'" }
-      ;						// { dg-error "use of 'k' before deduction of 'auto'" "" { target *-*-* } .-3 }
+  for (auto [i, j, k] : a)			// { dg-error "initializer expression refers to iteration variable 'i'" "" { target *-*-* } .-1 }
+    for (T l = i; l < j; l += k)		// { dg-error "condition expression refers to iteration variable 'j'" }
+      ;						// { dg-error "increment expression refers to iteration variable 'k'" "" { target *-*-* } .-3 }
 }
 
 void
--- gcc/testsuite/g++.dg/gomp/for-22.C.jj	2022-12-01 10:17:47.117785354 +0100
+++ gcc/testsuite/g++.dg/gomp/for-22.C	2022-12-01 11:08:19.578078371 +0100
@@ -0,0 +1,57 @@ 
+// { dg-do compile { target c++17 } }
+
+namespace std {
+  template<typename T> struct tuple_size;
+  template<int, typename> struct tuple_element;
+}
+
+struct A {
+  int i;
+  template <int I> int& get() { return i; }
+};
+
+template<> struct std::tuple_size<A> { static const int value = 3; };
+template<int I> struct std::tuple_element<I,A> { using type = int; };
+
+struct B {
+  A *begin();
+  A *end();
+};
+
+void
+f1 (B a)
+{
+  #pragma omp for collapse (2)
+  for (auto [i, j, k] : a)			// { dg-error "initializer expression refers to iteration variable 'i'" "" { target *-*-* } .+1 }
+    for (int l = i; l < j; l += k)		// { dg-error "condition expression refers to iteration variable 'j'" }
+      ;						// { dg-error "increment expression refers to iteration variable 'k'" "" { target *-*-* } .-1 }
+}
+
+template <int N>
+void
+f2 (B a)
+{
+  #pragma omp for collapse (2)
+  for (auto [i, j, k] : a)			// { dg-error "initializer expression refers to iteration variable 'i'" "" { target *-*-* } .-1 }
+    for (int l = i; l < j; l += k)		// { dg-error "condition expression refers to iteration variable 'j'" }
+      ;						// { dg-error "increment expression refers to iteration variable 'k'" "" { target *-*-* } .-3 }
+}
+
+template <typename T>
+void
+f3 (T a)
+{
+  #pragma omp for collapse (2)
+  for (auto [i, j, k] : a)			// { dg-error "initializer expression refers to iteration variable 'i'" "" { target *-*-* } .-1 }
+    for (int l = i; l < j; l += k)		// { dg-error "condition expression refers to iteration variable 'j'" }
+      ;						// { dg-error "increment expression refers to iteration variable 'k'" "" { target *-*-* } .-3 }
+}
+
+void
+test ()
+{
+  B b;
+  f1 (b);
+  f2 <0> (b);
+  f3 <B> (b);
+}