2 with Interfaces; use Interfaces;
5 F_Count : Natural := 0;
7 function F return Integer is
9 F_Count := F_Count + 1;
13 function F return Unsigned_32 is
15 F_Count := F_Count + 1;
19 R : constant Integer :=
23 Integer (Unsigned_32'(F) mod 1) +
24 Integer (Unsigned_32'(F) rem 1);
25 pragma Warnings (Off, R);
29 with "incorrect numbers of calls to F:" & F_Count'Img;