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
This commit is contained in:
parent
d2e74f6fd5
commit
5c76089acf
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue