PR libgfortran/30014
*io/io.h (st_parameter_dt): Change *size and *iolength type to
GFC_IO_INT.
*io/transfer.c (finalize_transfer): Cast dtp->u.p.size_used to
GFC_IO_INT. (iolength_transfer): Cast size * nelems to GFC_IO_INT.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120234
138bc75d-0d04-0410-961f-
82ee72b054a4
+2006-12-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libgfortran/30014
+ *io/io.h (st_parameter_dt): Change *size and *iolength type to
+ GFC_IO_INT.
+ *io/transfer.c (finalize_transfer): Cast dtp->u.p.size_used to
+ GFC_IO_INT. (iolength_transfer): Cast size * nelems to GFC_IO_INT.
+
2006-12-17 Tobias Burnus <burnus@net-b.de>
* intrinsics/associated.c: Check for associated(NULL,NULL).
{
st_parameter_common common;
GFC_IO_INT rec;
- GFC_INTEGER_4 *size, *iolength;
+ GFC_IO_INT *size, *iolength;
gfc_array_char *internal_unit_desc;
CHARACTER1 (format);
CHARACTER2 (advance);
GFC_INTEGER_4 cf = dtp->common.flags;
if ((dtp->common.flags & IOPARM_DT_HAS_SIZE) != 0)
- *dtp->size = (GFC_INTEGER_4) dtp->u.p.size_used;
+ *dtp->size = (GFC_IO_INT) dtp->u.p.size_used;
if (dtp->u.p.eor_condition)
{
size_t size, size_t nelems)
{
if ((dtp->common.flags & IOPARM_DT_HAS_IOLENGTH) != 0)
- *dtp->iolength += (GFC_INTEGER_4) size * nelems;
+ *dtp->iolength += (GFC_IO_INT) size * nelems;
}