new gfortran 4.1 branch failures

[Jack Howarth]

Steve,
    I noticed that my reshape_i16.c has...

#if defined (HAVE_GFC_INTEGER_16)

typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type;

/* The shape parameter is ignored. We can currently deduce the shape from the
   return array.  */

extern void reshape_16 (gfc_array_i16 *, gfc_array_i16 *, shape_type *,
                                    gfc_array_i16 *, shape_type *);
export_proto(reshape_16);

void
reshape_16 (gfc_array_i16 * ret, gfc_array_i16 * source, shape_type * shape,
                      gfc_array_i16 * pad, shape_type * order)

...etc. So that the subroutine is declared extern before it actually 
appears. I see the same thing in the generated transpose_i16.c for
the transpose_i16 subroutine. My c may be really rusty but I didn't
think you would declare a subroutine extern in the same file that
it appears in.
            Jack