"Cannot resolve type of expression" when function output is given by functionals

[dariomangoni@…]

Basically, this works:

function G
  input TestGTest2.FunctionsPrototypes.Gsubfun fun;
  input Real def;
  output Real f;
algorithm
  f:= fun(inVal=def);
end G;

while this doesn't

function G
  input TestGTest3.FunctionsPrototypes.Gsubfun fun;
  input Real def;
  output Real f;
algorithm
  f:= fun(inVal=def) + fun(inVal=def);
end G;

error is:

Cannot resolve type of expression fun(BOX(def)) + fun(BOX(def)). The operands have types #Real, #Real in component <NO_COMPONENT>.

the only change is in the output of function G.

I'm on OpenModelica v1.16.0-dev-259-g8a5138f38 on Win10 x64

See minimal example

[dariomangoni@…]

minimal example

[Per Östlund]

Fixed in 98a8dbc.