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

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
6eef39f1 · Dominique d'Humieres · Dominique d'Humieres · 832ca6ac · 6eef39f1 · 6eef39f1
Commit 6eef39f1 authored Nov 11, 2015 by Dominique d'Humieres Committed by Dominique d'Humieres Nov 11, 2015
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletions

gcc/fortran/ChangeLog
+5 -0

gcc/fortran/openmp.c
+1 -1

No files found.
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
+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

--- 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)
 	  {