------- Comment #8 from fxcoudert at gcc dot gnu dot org 2008-02-27 14:51
-------
There's more to it... using the "result" syntax for the function makes it fail
even with my patch:
function f(a) result(res)
implicit none
real(8), intent(in) :: a(:)
complex(8) :: res
res = cmplx(sum(a),product(a),8)
end function f
>From the tree dump:
f (a)
{
complex(kind=8) res;
[...]
*res = NON_LVALUE_EXPR <val.4>; // Ouch, that hurts
[...]
return res;
}
--
fxcoudert at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords|patch |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34868