Re: Callback in Ada

["Alex Mentis" <foo@invalid.invalid>]

Robert A Duff wrote:

> function Foobar (A : Integer) return Integer is (if A > 10 then A - 5
>                                                  else A);
 
...

> Actually, the latest version of GNAT supports the above,
> and a bunch of other Ada 2012 features.
> 
> - Bob

I was not able to get a short test program using the code above to
compile using GNAT GPL 2010 from AdaCore, even when using the Ada 2012
switches (-gnat12 and -gnat2012) and pragma (pragma Ada_2012).  The
error I get makes it appear that the parser is looking for a �begin�
for function Foobar.

Using the following worked, though:

function Foobar (A : Integer) return Integer is
begin
   return (if A > 10 then A - 5 else A);
end Foobar;

What am I missing?

-Alex