mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2025-01-19 19:04:11 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

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

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

From-SVN: r119942
This commit is contained in:
Jerry DeLisle 2006-12-15 19:54:52 +00:00
parent 92efdb0750
commit 87cd572dee
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

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

2
libgfortran/io/transfer.c
View File

@ -1478,7 +1478,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;
}