From dce4599e2bc5726604acafdcd1b16bd1e432184e Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Tue, 19 Dec 2006 06:35:04 +0000 Subject: [PATCH] re PR fortran/30145 (Fortran 90: write statement fails to ignore zero-sized array...) 2006-12-18 Jerry DeLisle PR libfortran/30145 * io/transfer.c (transfer_array): Check for negative extent. From-SVN: r120043 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/transfer.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 93186454c4a1..c72b546701aa 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2006-12-18 Jerry DeLisle + + PR libfortran/30145 + * io/transfer.c (transfer_array): Check for negative extent. + 2006-12-15 Richard Guenther Backport from mainline: diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 19236454e39a..074ef9c427fe 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -1468,7 +1468,7 @@ transfer_array (st_parameter_dt *dtp, gfc_array_char *desc, int kind, /* If the extent of even one dimension is zero, then the entire array section contains zero elements, so we return. */ - if (extent[n] == 0) + if (extent[n] <= 0) return; }