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 cd4c94e67645f2d78130715af6b7ea6fb6b6df53..33c541a38d6caa08818c2400a09f3806745af2ed 100644 (file)
--- 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 a7c7a1927e31624b93a995fcb9b68d2450596380..4af139a2a17b50026953f437632e363c29bfd96b 100644 (file)
--- 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)
          {