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

Reply via email to