diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/module.c | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5b3c8ed..43cf5ed 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2004-10-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> + + * module.c (mio_interface_rest): Set where member of interface + while loading. + 2004-10-08 Andrew Pinski <pinskia@physics.uc.edu> PR fortran/17901 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) |