------- 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