[Bug fortran/20935] New: failed assertion for maxloc(n, mask=.true.)

["tkoenig at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

$ gfortran maxloc.f90
$ ./a.out
a.out: ../../../gcc-4.1/libgfortran/generated/maxloc0_4_i4.c:221: mmaxloc0_4_i4:
Assertion `((mask)->dtype >> 6) == 8' failed.
Aborted
$ gfortran -v
Using built-in specs.
Target: i686-pc-linux-gnu
Configured with: ../gcc-4.1/configure --prefix=/home/ig25 --enable-languages=c,f95
Thread model: posix
gcc version 4.1.0 20050410 (experimental)

>From the .t02.original file:

    logical4 C.502 = 1;
    struct array2_int4 parm.7;
    struct array1_int4 parm.6;

    parm.6.dtype = 265;
    parm.6.dim[0].lbound = 1;
    parm.6.dim[0].ubound = 2;
    parm.6.dim[0].stride = 1;
    parm.6.data = (int4[0:] *) (int4[0:] *) &i[0];
    parm.6.offset = 0;
    parm.7.dtype = 266;
    parm.7.dim[0].lbound = 1;
    parm.7.dim[0].ubound = 2;
    parm.7.dim[0].stride = 1;
    parm.7.dim[1].lbound = 1;
    parm.7.dim[1].ubound = 2;
    parm.7.dim[1].stride = 2;
    parm.7.data = (int4[0:] *) (int4[0:] *) &n[0];
    parm.7.offset = 0;
    _gfortran_mmaxloc0_4_i4 (&parm.6, &parm.7, &C.502);
                                               ^^^^^^^
  }
The last argument of the mmaxloc function is bogus
(it should be an array descriptor), so I'd classify
this as a minor bug.

Severity minor because a scalar .true. mask is not particularly
useful.

-- 
           Summary: failed assertion for maxloc(n, mask=.true.)
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: minor
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: tkoenig at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org


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