$ 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