[Bug fortran/66578] [F2008] Invalid free on allocate(...,source=a(:)) in block

[vehre at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66578

--- Comment #18 from vehre at gcc dot gnu.org ---
Author: vehre
Date: Tue Jul  7 11:10:12 2015
New Revision: 225507

URL: https://gcc.gnu.org/viewcvs?rev=225507&root=gcc&view=rev
Log:
gcc/testsuite/ChangeLog:

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

        PR fortran/66578
        * gfortran.dg/allocate_with_source_9.f08: New test.


gcc/fortran/ChangeLog:

2015-07-07  Mikael Morin  <mik...@gcc.gnu.org>
            Andre Vehreschild  <ve...@gcc.gnu.org>

        PR fortran/66578
        * trans-array.c (gfc_conv_expr_descriptor): Ensure array descriptor
        is one-based for non-full array refs. Correct the offset when a
        rank_remap occurs.


Added:
    trunk/gcc/testsuite/gfortran.dg/allocate_with_source_9.f08
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-array.c
    trunk/gcc/testsuite/ChangeLog