[Bug fortran/56789] Wrong code with contiguous dummy argument

[tkoenig at gcc dot gnu.org]

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



Thomas Koenig <tkoenig at gcc dot gnu.org> changed:



           What    |Removed                     |Added

----------------------------------------------------------------------------

                 CC|                            |burnus at gcc dot gnu.org



--- Comment #1 from Thomas Koenig <tkoenig at gcc dot gnu.org> 2013-03-30 
22:35:51 UTC ---

The problem is that we pack the data, but do

not adjust the descriptor accordingly.



The dump looks like this:



   parm.10.dtype = 282;

    parm.10.dim[0].lbound = 1;

    parm.10.dim[0].ubound = 3;

    parm.10.dim[0].stride = 2;

    parm.10.dim[1].lbound = 1;

    parm.10.dim[1].ubound = 3;

    parm.10.dim[1].stride = 10;

    parm.10.data = (void *) &a[0];

    parm.10.offset = 0;

    origptr.11 = parm.10.data;

    D.1929 = _gfortran_internal_pack (&parm.10);

    parm.10.data = D.1929;

    foo (&parm.10);



and it should look like this:



   parm.12.dim[0].lbound = 1;

    parm.12.dim[0].ubound = 3;

    parm.12.dim[0].stride = 1;

    parm.12.dim[1].lbound = 1;

    parm.12.dim[1].ubound = 3;

    parm.12.dim[1].stride = 3;

[...]