    with Toto,
         Titi;

    function Foo(Profondeur : in Natural ; b : natural) return Float is
    a : constant := 100000000000000;
    c: constant := 2#10101010101010101#;
    begin
        null;
    end Foo;
