From 5c76089acfa0d689a4e7a1839c3dbf807c0ebbdf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tobias=20Schl=C3=BCter?= Date: Sat, 9 Oct 2004 18:17:45 +0200 Subject: 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/module.c | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/module.c') diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 5eaf8fb..04e900b 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) -- cgit v1.1