diff options
| author | dominiq <dominiq@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-11-11 10:30:25 +0000 |
|---|---|---|
| committer | dominiq <dominiq@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-11-11 10:30:25 +0000 |
| commit | 7161f88456c35dfd3da0ca88e5a7f156abdabf6a (patch) | |
| tree | 9797f75fddf6dc11eae45bf437ada4b3ef0b5706 /gcc/fortran/openmp.c | |
| parent | 4e7ec2c585dd2b498fb8768253a950f061f81790 (diff) | |
2015-11-11 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/67826
* openmp.c (gfc_omp_udr_find): Fix typo.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@230148 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index a7c7a1927e31..4af139a2a17b 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) { |