From: Tobias Burnus <tobias@codesourcery.com>
Date: Mon, 27 Jul 2020 07:12:15 +0000 (+0200)
Subject: fortran/openmp.c - silence static analyzer warning
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=20d0d6527c36005a9664f7ac9eb50f1071d5670c;p=gcc.git

fortran/openmp.c - silence static analyzer warning

gcc/fortran/ChangeLog:

	* openmp.c (gfc_resolve_omp_directive): Remove NULL check
	for clauses in EXEC_OMP_CRITICAL as it no longer can be NULL.
---

diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index f8f2439b6e4..4a0466f968d 100644
--- a/gcc/fortran/openmp.c
+++ b/gcc/fortran/openmp.c
@@ -6560,8 +6560,7 @@ gfc_resolve_omp_directive (gfc_code *code, gfc_namespace *ns ATTRIBUTE_UNUSED)
       resolve_omp_atomic (code);
       break;
     case EXEC_OMP_CRITICAL:
-      if (code->ext.omp_clauses)
-	resolve_omp_clauses (code, code->ext.omp_clauses, NULL);
+      resolve_omp_clauses (code, code->ext.omp_clauses, NULL);
       if (!code->ext.omp_clauses->critical_name
 	  && code->ext.omp_clauses->hint
 	  && code->ext.omp_clauses->hint->ts.type == BT_INTEGER