------- 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