diff options
| author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-31 18:05:10 +0000 |
|---|---|---|
| committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-31 18:05:10 +0000 |
| commit | 9f9240272d6cbe64a85a6e92e223e587e8ac55c6 (patch) | |
| tree | daf721ae8c46819c335ccc6f7647203507b90390 /gcc/fortran/interface.c | |
| parent | 1ba3a59030c34669fd3f957740aabe7171fd7dc6 (diff) | |
| download | gcc-9f9240272d6cbe64a85a6e92e223e587e8ac55c6.tar.gz | |
2007-12-31 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34558
* interface.c (gfc_compare_types): Prevent linked lists from
putting this function into an endless recursive loop.
2007-12-31 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34558
* gfortran.dg/linked_list_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131238 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index b242d0707f8..717f3b78258 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -407,7 +407,17 @@ gfc_compare_derived_types (gfc_symbol *derived1, gfc_symbol *derived2) if (dt1->dimension && gfc_compare_array_spec (dt1->as, dt2->as) == 0) return 0; - if (gfc_compare_types (&dt1->ts, &dt2->ts) == 0) + /* Make sure that link lists do not put this function in an + endless loop! */ + if (!(dt1->ts.type == BT_DERIVED && derived1 == dt1->ts.derived) + && !(dt1->ts.type == BT_DERIVED && derived1 == dt1->ts.derived) + && gfc_compare_types (&dt1->ts, &dt2->ts) == 0) + return 0; + + else if (dt1->ts.type != BT_DERIVED + || derived1 != dt1->ts.derived + || dt2->ts.type != BT_DERIVED + || derived2 != dt2->ts.derived) return 0; dt1 = dt1->next; |