diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-10-09 18:17:45 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-10-09 18:17:45 +0200 |
| commit | 5c76089acfa0d689a4e7a1839c3dbf807c0ebbdf (patch) | |
| tree | caa8eaf85f91bb20185af2e446f57415554408c3 /gcc | |
| parent | d2e74f6fd5b8dfff688b382b2fcb076f4f87a724 (diff) | |
| download | gcc-5c76089acfa0d689a4e7a1839c3dbf807c0ebbdf.zip gcc-5c76089acfa0d689a4e7a1839c3dbf807c0ebbdf.tar.gz gcc-5c76089acfa0d689a4e7a1839c3dbf807c0ebbdf.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -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) |