From cf7946521395a76bafc978c02b43e78536a71c0c Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Thu, 28 Dec 2006 01:40:23 +0000 Subject: re PR libfortran/30014 (INQUIRE (iolength = xx) limited to kind=4) 2006-12-27 Jerry DeLisle 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. From-SVN: r120234 --- libgfortran/io/io.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libgfortran/io/io.h') diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index 4d227dd..314fc4c 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -354,7 +354,7 @@ typedef struct st_parameter_dt { 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); -- cgit v1.1