diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-31 13:03:53 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-31 13:03:53 +0000 |
| commit | a9f097cb33a56f654e3d4f1bf76552d5f2f7a5dd (patch) | |
| tree | d89feb8370f0f1f19d52dbd2d74516b16acdd884 /gcc/fortran/dependency.c | |
| parent | 54474b859072554ba31a5a719c69461e660022e4 (diff) | |
| download | gcc-a9f097cb33a56f654e3d4f1bf76552d5f2f7a5dd.tar.gz | |
2012-07-31 Janus Weil <janus@gcc.gnu.org>
PR fortran/54134
* dependency.c (gfc_dep_compare_expr): Check if arguments are NULL.
2012-07-31 Janus Weil <janus@gcc.gnu.org>
PR fortran/54134
* gfortran.dg/typebound_override_3.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@190010 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/dependency.c')
| -rw-r--r-- | gcc/fortran/dependency.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/dependency.c b/gcc/fortran/dependency.c index 108815a44d9..ea1245dbb0b 100644 --- a/gcc/fortran/dependency.c +++ b/gcc/fortran/dependency.c @@ -261,6 +261,9 @@ gfc_dep_compare_expr (gfc_expr *e1, gfc_expr *e2) n1 = NULL; n2 = NULL; + if (e1 == NULL && e2 == NULL) + return 0; + /* Remove any integer conversion functions to larger types. */ if (e1->expr_type == EXPR_FUNCTION && e1->value.function.isym && e1->value.function.isym->id == GFC_ISYM_CONVERSION |