From 9266d9fce2ca8ec704b932e8af7ab04432772c44 Mon Sep 17 00:00:00 2001
From: Tobias Burnus <tburnus@baylibre.com>
Date: Fri, 23 Feb 2024 13:12:48 +0100
Subject: [PATCH] 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.
---
gcc/fortran/openmp.cc | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
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);
}
--
GitLab