re PR fortran/38152 (procedure pointers as module variables)
2009-04-07 Janus Weil <janus@gcc.gnu.org> PR fortran/38152 * trans-decl.c (gfc_get_symbol_decl): Correctly set decl location for procedure pointer decls. 2009-04-07 Janus Weil <janus@gcc.gnu.org> PR fortran/38152 * gfortran.dg/proc_ptr_13.f90: Add "-g" option. From-SVN: r145692
This commit is contained in:
parent
1732c15641
commit
13d138bfb1
|
@ -1,3 +1,9 @@
|
|||
2009-04-07 Janus Weil <janus@gcc.gnu.org>
|
||||
|
||||
PR fortran/38152
|
||||
* trans-decl.c (gfc_get_symbol_decl): Correctly set decl location for
|
||||
procedure pointer decls.
|
||||
|
||||
2009-04-07 Janus Weil <janus@gcc.gnu.org>
|
||||
|
||||
PR fortran/38290
|
||||
|
|
|
@ -1015,10 +1015,12 @@ gfc_get_symbol_decl (gfc_symbol * sym)
|
|||
if (sym->backend_decl)
|
||||
return sym->backend_decl;
|
||||
|
||||
/* Catch function declarations. Only used for actual parameters. */
|
||||
/* Catch function declarations. Only used for actual parameters and
|
||||
procedure pointers. */
|
||||
if (sym->attr.flavor == FL_PROCEDURE)
|
||||
{
|
||||
decl = gfc_get_extern_function_decl (sym);
|
||||
gfc_set_decl_location (decl, &sym->declared_at);
|
||||
return decl;
|
||||
}
|
||||
|
||||
|
|
|
@ -1,3 +1,8 @@
|
|||
2009-04-07 Janus Weil <janus@gcc.gnu.org>
|
||||
|
||||
PR fortran/38152
|
||||
* gfortran.dg/proc_ptr_13.f90: Add "-g" option.
|
||||
|
||||
2009-04-07 Eric Botcazou <ebotcazou@adacore.com>
|
||||
|
||||
* gnat.dg/subp_elim_errors.ad[sb]: New test.
|
||||
|
|
|
@ -1,4 +1,5 @@
|
|||
! { dg-do compile }
|
||||
! { dg-options "-g" }
|
||||
!
|
||||
! PR 38152: Procedure pointers as module variables.
|
||||
!
|
||||
|
|
Loading…
Reference in New Issue