Hi Paul,
> > --- a/libgfortran/intrinsics/reduce.c
> > +++ b/libgfortran/intrinsics/reduce.c
> > @@ -83,8 +83,8 @@ reduce (parray *ret,
> > if (dim_present)
> > {
> > if ((*dim < 1) || (*dim > (GFC_INTEGER_4)array_rank))
> > - runtime_error ("DIM in REDUCE intrinsic is less than 0 or greater
> > than
> > "
> > - "the rank of ARRAY");
> > + runtime_error ("Mismatch between DIM in and the rank of ARRAY in
> > the "
> >
> > ... DIM and the rank ... ???
> >
>
> Yes, 0 < dim <= ARRAY->rank being asserted.
Sorry, for being imprecise, but I think there is an "in" too much in the
error message!
- Andre
--
Andre Vehreschild * Email: vehre ad gmx dot de
