From 5c76089acfa0d689a4e7a1839c3dbf807c0ebbdf Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Sat, 9 Oct 2004 18:17:45 +0200 Subject: [PATCH] module.c (mio_interface_rest): Set where member of interface while loading. * module.c (mio_interface_rest): Set where member of interface while loading. From-SVN: r88819 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/module.c | 1 + 2 files changed, 6 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5b3c8edcc56a..43cf5ed51e25 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2004-10-09 Tobias Schlueter + + * module.c (mio_interface_rest): Set where member of interface + while loading. + 2004-10-08 Andrew Pinski PR fortran/17901 diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 5eaf8fb2a643..04e900b88086 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -2570,6 +2570,7 @@ mio_interface_rest (gfc_interface ** ip) break; p = gfc_get_interface (); + p->where = gfc_current_locus; mio_symbol_ref (&p->sym); if (tail == NULL) -- 2.43.5