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

re PR fortran/65889 ([6 Regressions] [OOP] ICE with sizeof a polymorphic variable.)

Browse Source 
gcc/fortran/ChangeLog:

2015-10-07  Andre Vehreschild  <vehre@gcc.gnu.org>

	PR fortran/65889
	* trans-intrinsic.c (gfc_conv_intrinsic_sizeof): Handle pointer to and
	on stack class objects as sizeof parameter.

gcc/testsuite/ChangeLog:

2015-10-07  Andre Vehreschild  <vehre@gcc.gnu.org>

	PR fortran/65889
	* gfortran.dg/sizeof_5.f90: New test.

From-SVN: r228566
This commit is contained in:
Andre Vehreschild 2015-10-07 12:58:46 +02:00
parent 735e964108
commit b0ae33baab
4 changed files with 34 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2015-10-07 Andre Vehreschild <vehre@gcc.gnu.org>
PR fortran/65889
* trans-intrinsic.c (gfc_conv_intrinsic_sizeof): Handle pointer to and
on stack class objects as sizeof parameter.
2015-10-06 Louis Krupp <louis.krupp@zoho.com>
PR fortran/65766
* resolve.c (gfc_resolve_substring_charlen): For derived type,

11
gcc/fortran/trans-intrinsic.c
View File

@ -5937,11 +5937,16 @@ gfc_conv_intrinsic_sizeof (gfc_se *se, gfc_expr *expr)
}
else if (arg->ts.type == BT_CLASS)
{
/* For deferred length arrays, conv_expr_descriptor returns an
indirect_ref to the component. */
/* Conv_expr_descriptor returns a component_ref to _data component of the
class object. The class object may be a non-pointer object, e.g.
located on the stack, or a memory location pointed to, e.g. a
parameter, i.e., an indirect_ref. */
if (arg->rank < 0
|| (arg->rank > 0 && !VAR_P (argse.expr)
&& GFC_DECL_CLASS (TREE_OPERAND (argse.expr, 0))))
&& ((INDIRECT_REF_P (TREE_OPERAND (argse.expr, 0))
&& GFC_DECL_CLASS (TREE_OPERAND (
TREE_OPERAND (argse.expr, 0), 0)))
|| GFC_DECL_CLASS (TREE_OPERAND (argse.expr, 0)))))
byte_size = gfc_class_vtab_size_get (TREE_OPERAND (argse.expr, 0));
else if (arg->rank > 0)
/* The scalarizer added an additional temp. To get the class' vptr

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2015-10-07 Andre Vehreschild <vehre@gcc.gnu.org>
PR fortran/65889
* gfortran.dg/sizeof_5.f90: New test.
2015-10-06 Jeff Law <law@redhat.com>
* gcc.c-torture/compile/pr67816.c: New test.

15
gcc/testsuite/gfortran.dg/sizeof_5.f90 Normal file
View File

@ -0,0 +1,15 @@
! { dg-do compile }
!
! PR fortran/65889
!
!
module m
type n
end type n
contains
subroutine g(ns)
class(n), intent(out), allocatable, dimension(:) :: ns
class(n), allocatable, dimension(:) :: tmp
write (0,*) sizeof(ns), sizeof(tmp)
end subroutine g
end module m