KJ16609/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2026-02-22 03:46:53 -05:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/30145 (Fortran 90: write statement fails to ignore zero-sized array...)

Browse Source 
2006-12-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/30145
	* io/transfer.c (transfer_array):  Check for negative extent.

From-SVN: r120043
This commit is contained in:
Jerry DeLisle
2006-12-19 06:35:04 +00:00
parent af548c702d
commit dce4599e2b
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@@ -1,3 +1,8 @@
2006-12-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/30145
* io/transfer.c (transfer_array): Check for negative extent.
2006-12-15 Richard Guenther <rguenther@suse.de>
Backport from mainline:

2
libgfortran/io/transfer.c
View File

@@ -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;
}