This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[PATCH, committed] PR67826 gcc/fortran/openmp.c:1808: bad test ?
- From: Dominique d'HumiÃres <dominiq at lps dot ens dot fr>
- To: fortran at gcc dot gnu dot org
- Cc: gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Wed, 11 Nov 2015 11:36:19 +0100
- Subject: [PATCH, committed] PR67826 gcc/fortran/openmp.c:1808: bad test ?
- Authentication-results: sourceware.org; auth=none
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 <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
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