[Bug fortran/29397] Constant logical expression with parameter array

[fxcoudert at gcc dot gnu dot org]

------- Comment #2 from fxcoudert at gcc dot gnu dot org  2007-02-06 14:05 -------
We're passing a pointer to a logical instead of an array descriptor:

$ cat a.f90               
  integer :: k(3), l(1)
  integer, parameter :: j(3) = 2
  l = maxloc (k, j<1)
  end
$ cat a.f90.003t.original
MAIN__ ()
{
  int4 l[1];
  int4 k[3];

  _gfortran_set_std (70, 127, 0, 0);
  {
    static logical4 C.1011 = 0;
    struct array1_int4 parm.1;
    struct array1_int4 parm.0;

    parm.0.dtype = 265;
    parm.0.dim[0].lbound = 1;
    parm.0.dim[0].ubound = 1;
    parm.0.dim[0].stride = 1;
    parm.0.data = (void *) &l[0];
    parm.0.offset = 0;
    parm.1.dtype = 265;
    parm.1.dim[0].lbound = 1;
    parm.1.dim[0].ubound = 3;
    parm.1.dim[0].stride = 1;
    parm.1.data = (void *) &k[0];
    parm.1.offset = 0;
    _gfortran_mmaxloc0_4_i4 (&parm.0, &parm.1, &C.1011);
  }
}


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Last reconfirmed|2006-10-08 21:50:42         |2007-02-06 14:05:37
               date|                            |


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