From 6eef39f15bb3ca2de1cddc0d9b48b8644b9d5abc Mon Sep 17 00:00:00 2001 From: Dominique d'Humieres Date: Wed, 11 Nov 2015 11:30:25 +0100 Subject: [PATCH] re PR fortran/67826 (gcc/fortran/openmp.c:1808: bad test ?) 2015-11-11 Dominique d'Humieres PR fortran/67826 * openmp.c (gfc_omp_udr_find): Fix typo. From-SVN: r230148 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/openmp.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + PR fortran/67826 + * openmp.c (gfc_omp_udr_find): Fix typo. + 2015-11-08 Steven g. Kargl 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) { -- 2.30.2