From: Tobias Burnus <tburnus@baylibre.com>
Date: Fri, 23 Feb 2024 12:12:48 +0000 (+0100)
Subject: Fortran/Openmp: Use OPT_Wopenmp for gfc_match_omp_depobj warning
X-Git-Tag: basepoints/gcc-15~986
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9266d9fce2ca8ec704b932e8af7ab04432772c44;p=thirdparty%2Fgcc.git

Fortran/Openmp: Use OPT_Wopenmp for gfc_match_omp_depobj warning

gcc/fortran/ChangeLog:

	* openmp.cc (gfc_match_omp_depobj): Use OPT_Wopenmp
	as warning category in gfc_warning.
---

diff --git a/gcc/fortran/openmp.cc b/gcc/fortran/openmp.cc
index 77f6e1732f92..38de60238c0e 100644
--- a/gcc/fortran/openmp.cc
+++ b/gcc/fortran/openmp.cc
@@ -4768,8 +4768,8 @@ gfc_match_omp_depobj (void)
       if (gfc_match (" ( %v ) ", &destroyobj) == MATCH_YES)
 	{
 	  if (destroyobj->symtree != depobj->symtree)
-	    gfc_warning (0, "The same depend object should be used as DEPOBJ "
-			 "argument at %L and as DESTROY argument at %L",
+	    gfc_warning (OPT_Wopenmp, "The same depend object should be used as"
+			 " DEPOBJ argument at %L and as DESTROY argument at %L",
 			 &depobj->where, &destroyobj->where);
 	  gfc_free_expr (destroyobj);
 	}