$ 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
