[libfortran, patch] fix for PR 19106

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

This fixes PR 19106 by allocating space on the library side when
retarray->data == NULL for masked arrays.

This was done correctly in one function in ifunction.c, all I did
was copy that part of the code to the second one.  Assigned to
the FSF while I await copyright papers to sign.

Regtested on 4.0.

Since this is my first venture into the realm of generated functions,
I'd appreciate some feedback even if approval should be held back
because I haven't received my copyright papers yet.


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

	PR libfortran/19106
	m4/ifunction.c (name`'rtype_qual`_'atype_code):  Only
	assert correct rank if retarray->data != NULL.
	(`m'name`'rtype_qual`_'atype_code): If retarray->data == NULL,
	fill in the retarray properties.
	all_l4.c, all_l8.c, any_l4.c, any_l8.c, count_4_l4.c,
	count_4_l8.c, count_8_l4.c, count_8_l8.c, maxloc1_4_i4.c,
	maxloc1_4_i8.c, maxloc1_4_r4.c, maxloc1_4_r8.c,
	maxloc1_8_i4.c, maxloc1_8_i8.c, maxloc1_8_r4.c,
	maxloc1_8_r8.c, maxval_i4.c, maxval_i8.c, maxval_r4.c,
	maxval_r8.c, minloc1_4_i4.c, minloc1_4_i8.c,
	minloc1_4_r4.c, minloc1_4_r8.c, minloc1_8_i4.c,
	minloc1_8_i8.c, minloc1_8_r4.c, minloc1_8_r8.c,
	minval_i4.c, minval_i8.c, minval_r4.c, minval_r8.c,
	product_c4.c, product_c8.c, product_i4.c, product_i8.c,
	product_r4.c, product_r8.c, sum_c4.c, sum_c8.c, sum_i4.c,
	sum_i8.c, sum_r4.c, sum_r8.c:  Regenerate.

Attachment: ifunction.m4-diff
Description: Text document

Attachment: generated-diff
Description: Text document

Attachment: sum_mask_print.f90
Description: Text document