From: Dominique d'Humieres <dominiq@lps.ens.fr>
Date: Wed, 11 Nov 2015 10:30:25 +0000 (+0100)
Subject: re PR fortran/67826 (gcc/fortran/openmp.c:1808: bad test ?)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6eef39f15bb3ca2de1cddc0d9b48b8644b9d5abc;p=gcc.git

re PR fortran/67826 (gcc/fortran/openmp.c:1808: bad test ?)

2015-11-11  Dominique d'Humieres <dominiq@lps.ens.fr>

	PR fortran/67826
	* openmp.c (gfc_omp_udr_find): Fix typo.

From-SVN: r230148
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index cd4c94e6764..33c541a38d6 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2015-11-11  Dominique d'Humieres <dominiq@lps.ens.fr>
+
+	PR fortran/67826
+	* openmp.c (gfc_omp_udr_find): Fix typo.
+
 2015-11-08  Steven g. Kargl  <kargl@gcc.gnu.org>
 
 	PR fortran/68053
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index a7c7a1927e3..4af139a2a17 100644
--- a/gcc/fortran/openmp.c
+++ b/gcc/fortran/openmp.c
@@ -1820,7 +1820,7 @@ gfc_omp_udr_find (gfc_symtree *st, gfc_typespec *ts)
   for (omp_udr = st->n.omp_udr; omp_udr; omp_udr = omp_udr->next)
     if (omp_udr->ts.type == ts->type
 	|| ((omp_udr->ts.type == BT_DERIVED || omp_udr->ts.type == BT_CLASS)
-	    && (ts->type == BT_DERIVED && ts->type == BT_CLASS)))
+	    && (ts->type == BT_DERIVED || ts->type == BT_CLASS)))
       {
 	if (omp_udr->ts.type == BT_DERIVED || omp_udr->ts.type == BT_CLASS)
 	  {