I have committed on trunk the following patch as revision r230148 (preapproved 
by Jakub Jelinek and tested on x86_64-apple-darwin14)

Index: gcc/fortran/ChangeLog
===================================================================
--- gcc/fortran/ChangeLog       (revision 230147)
+++ gcc/fortran/ChangeLog       (working copy)
@@ -1,3 +1,8 @@
+2015-11-11  Dominique d'Humieres <domi...@lps.ens.fr>
+
+       PR fortran/67826
+       * openmp.c (gfc_omp_udr_find): Fix typo.
+
 2015-11-08  Steven g. Kargl  <ka...@gcc.gnu.org>
 
        PR fortran/68053
Index: gcc/fortran/openmp.c
===================================================================
--- gcc/fortran/openmp.c        (revision 230147)
+++ gcc/fortran/openmp.c        (working copy)
@@ -1820,7 +1820,7 @@
   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)
          {

Dominique

Reply via email to