Re: Fix for temporary allocation in spread

[Thomas Koenig <Thomas dot Koenig at online dot de>]

Here's an updated patch for PR 18495.  This does fix the
the benchmark that Paul posted, and Walt Brainerd's bug
report.

Regression-test on mainline tomorrow.  OK if this passes?

2005-04-13  Thomas Koenig  <Thomas.Koenig@online.de>

	PR libfortran/18495
	* intrinsics/spread_generic.c (spread):  Remove const from
	return array descriptor.
	New variables: rrank (rank of return array),  rs (for
	calculating the size of the return array), srank (rank
	of the source array).
	Generate runtime error if the dim= argument is larger than
	the rank of the return array.
	Generate runtime error if the needed rank of the return
	array is larger than 7.
	If ret->data is null, populate the return array descriptor
	and initialize the variables for the actual operation.
	Change second, independent use of variable dim to srank.

2005-04-13  Thomas Koenig  <Thomas.Koenig@online.de>

	PR libfortran/18495
	* gfortran.fortran-torture/execute/intrinsic_spread.f90:
	Test callee-allocated version of return array with a write
	statement.

Attachment: spread-diff
Description: Text document

Attachment: testcase-spread-diff
Description: Text document