diff options
Diffstat (limited to 'gcc/fortran/dependency.c')
| -rw-r--r-- | gcc/fortran/dependency.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/dependency.c b/gcc/fortran/dependency.c index 960155e..ab14e33 100644 --- a/gcc/fortran/dependency.c +++ b/gcc/fortran/dependency.c @@ -368,8 +368,14 @@ gfc_dep_compare_expr (gfc_expr *e1, gfc_expr *e2) /* Compare the argument lists for equality. */ while (args1 && args2) { - if (gfc_dep_compare_expr (args1->expr, args2->expr) != 0) + /* Bitwise xor, since C has no non-bitwise xor operator. */ + if ((args1->expr == NULL) ^ (args2->expr == NULL)) return -2; + + if (args1->expr != NULL && args2->expr != NULL + && gfc_dep_compare_expr (args1->expr, args2->expr) != 0) + return -2; + args1 = args1->next; args2 = args2->next; } |