[Bug fortran/58793] Wrong value for _vtab for intrinsic types with CLASS(*): storage_size of class(*) gives wrong result

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58793

--- Comment #7 from Tobias Burnus <burnus at gcc dot gnu.org> ---
(In reply to Paul Thomas from comment #5)
> Created attachment 31054 [details] -  Fix for the PR

which was committed as follows. Comment 6 is about one side issue found during
review; pending is a patch for another side issue: Holleriths.


Author: pault
Date: Tue Oct 22 04:40:57 2013
New Revision: 203915

URL: http://gcc.gnu.org/viewcvs?rev=203915&root=gcc&view=rev
Log:
2013-10-22  Paul Thomas  <pault@gcc.gnu.org>

    PR fortran 57893
    * class.c : Include target-memory.h.
    (gfc_find_intrinsic_vtab) Build a minimal expression so that
    gfc_element_size can be used to obtain the storage size, rather
    that the kind value.

2013-10-22  Paul Thomas  <pault@gcc.gnu.org>

    PR fortran 57893
    * gfortran.dg/unlimited_polymorphic_13.f90 : New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/unlimited_polymorphic_13.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/class.c
    trunk/gcc/testsuite/ChangeLog