[patch, fortran] Reduce memory usage for intrinsic masks

[Thomas Koenig]

:ADDPATCH fortran:

Hello world,

this rather straightforward patch converts masks for different 
intrinsics to logical(kind=1) if they are expressions.  This means that,
for code like "pack(a,a>0.4)", we generate a logical1 instead of a
logical4 array.  This is a fairly big save in memory footprint.  In the
library, we now access all masks as kind=1 anyway.

For once, there isn't a PR associated with this.  No new test case as
this is tested extensively throughout the testsuite anyway. 
Regression-tested on i686-pc-linux-gnu.

OK for trunk?

	Thomas

2007-09-07  Thomas Koenig  <tkoenig@gcc.gnu.org>

	* iresolve.c (resolve_mask_arg): If a mask is an array
	expression, convert it to kind=1.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: mask-1.diff
Type: text/x-patch
Size: 1206 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20070906/4aeae7d8/attachment.bin>