OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/48706 (Type extension inside subroutine)

Browse Source 
2011-05-20  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/48706
	* module.c (write_dt_extensions): Do not write extended types which
	are local to a subroutine.

2011-05-20  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/48706
	* gfortran.dg/extends_12.f03: New.

From-SVN: r173966
This commit is contained in:
Janus Weil 2011-05-20 20:05:26 +02:00
parent 94df301fa0
commit 54381af734
4 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2011-05-20 Janus Weil <janus@gcc.gnu.org>
PR fortran/48706
* module.c (write_dt_extensions): Do not write extended types which
are local to a subroutine.
2011-05-20 Joseph Myers <joseph@codesourcery.com>
* Make-lang.in (GFORTRAN_D_OBJS): Remove version.o and intl.o.
@ -20,6 +26,12 @@
copy for scalar coarrays.
* trans-array.c (gfc_conv_array_ref): Ditto.
2011-05-18 Janus Weil <janus@gcc.gnu.org>
PR fortran/48700
* trans-intrinsic.c (gfc_conv_intrinsic_move_alloc): Deallocate 'TO'
argument to avoid memory leaks.
2011-05-16 Tobias Burnus <burnus@net-b.de>
* gfortran.texi (_gfortran_set_options): Add GFC_STD_F2008_TR.

3
gcc/fortran/module.c
View File

@ -4817,6 +4817,9 @@ write_dt_extensions (gfc_symtree *st)
{
if (!gfc_check_symbol_access (st->n.sym))
return;
if (!(st->n.sym->ns && st->n.sym->ns->proc_name
&& st->n.sym->ns->proc_name->attr.flavor == FL_MODULE))
return;
mio_lparen ();
mio_pool_string (&st->n.sym->name);

10
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2011-05-20 Janus Weil <janus@gcc.gnu.org>
PR fortran/48706
* gfortran.dg/extends_12.f03: New.
2011-05-20 Jason Merrill <jason@redhat.com>
* g++.dg/template/koenig9.C: New.
@ -53,6 +58,11 @@
* gcc.c-torture/execute/960321-1.x: Remove.
2011-05-18 Janus Weil <janus@gcc.gnu.org>
PR fortran/48700
* gfortran.dg/move_alloc_4.f90: New.
2011-05-18 H.J. Lu <hongjiu.lu@intel.com>
PR target/49002

24
gcc/testsuite/gfortran.dg/extends_12.f03 Normal file
View File

@ -0,0 +1,24 @@
! { dg-do compile }
!
! PR 48706: Type extension inside subroutine
!
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
module mod_diff_01
implicit none
type :: foo
end type
contains
subroutine create_ext
type, extends(foo) :: foo_e
end type
end subroutine
end module
program diff_01
use mod_diff_01
implicit none
call create_ext()
end program
! { dg-final { cleanup-modules "mod_diff_01" } }