From 636b78f0a3e9b530d71086c28acd98bbb7c87fbf Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 2 Sep 2018 15:55:51 +0000 Subject: [PATCH] io.h: Change declaration of vlist type to gfc_full_array_i4 to eliminate warning for... 2018-09-01 Jerry DeLisle * io/io.h: Change declaration of vlist type to gfc_full_array_i4 to eliminate warning for mismatched type. * io/format.c ((parse_format_list): Use gfc_full_array_i4. * io/io.h: Use gfc_full_array_i4. From-SVN: r264043 --- libgfortran/ChangeLog | 7 +++++++ libgfortran/io/format.c | 2 +- libgfortran/io/format.h | 2 +- libgfortran/io/io.h | 3 ++- 4 files changed, 11 insertions(+), 3 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 76228e26b69..ca5e7b91a95 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,10 @@ +2018-09-01 Jerry DeLisle + + * io/io.h: Change declaration of vlist type to + gfc_full_array_i4 to eliminate warning for mismatched type. + * io/format.c ((parse_format_list): Use gfc_full_array_i4. + * io/io.h: Use gfc_full_array_i4. + 2018-08-25 Thomas Koenig PR libfortran/86704 diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index b4920aaf1f1..f5d3158d21d 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -1058,7 +1058,7 @@ parse_format_list (st_parameter_dt *dtp, bool *seen_dd) { /* We have parsed the complete vlist so initialize the array descriptor and save it in the format node. */ - gfc_array_i4 *vp = tail->u.udf.vlist; + gfc_full_array_i4 *vp = tail->u.udf.vlist; GFC_DESCRIPTOR_DATA(vp) = xmalloc (i * sizeof(GFC_INTEGER_4)); GFC_DIMENSION_SET(vp->dim[0],1, i, 1); memcpy (GFC_DESCRIPTOR_DATA(vp), temp, i * sizeof(GFC_INTEGER_4)); diff --git a/libgfortran/io/format.h b/libgfortran/io/format.h index ad7e1c14b8f..19882bcf095 100644 --- a/libgfortran/io/format.h +++ b/libgfortran/io/format.h @@ -78,7 +78,7 @@ struct fnode { char *string; int string_len; - gfc_array_i4 *vlist; + gfc_full_array_i4 *vlist; } udf; /* User Defined Format. */ diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index d31213106ed..902eb412848 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -100,7 +100,8 @@ array_loop_spec; /* Subroutine formatted_dtio (struct, unit, iotype, v_list, iostat, iomsg, (_iotype), (_iomsg)) */ -typedef void (*formatted_dtio)(void *, GFC_INTEGER_4 *, char *, gfc_array_i4 *, +typedef void (*formatted_dtio)(void *, GFC_INTEGER_4 *, char *, + gfc_full_array_i4 *, GFC_INTEGER_4 *, char *, gfc_charlen_type, gfc_charlen_type); -- 2.30.2