gcc/testsuite/gnat.dg/rep_clause5.adb

-- { dg-do compile }
-- { dg-options "-O" }

package body Rep_Clause5 is

    function To_LNumber(S : String) return LNumber_Type is
        V :  VString;
        LV : Long_Type;
        LN : LNumber_Type;
    begin
        LV := To_Long(V, 10);
        LN := LNumber_Type(LV);
        return LN;
    end;

    procedure Merge_Numbered(LNodes : in out LNodes_Ptr) is
        T1  : Token_Type;
        LNO : LNumber_Type;
    begin
        for X in LNodes.all'Range loop
            T1 := LNodes(X).Line(0);
            if T1.Token /= LEX_LF then
                declare
                    S : String := Element(T1.SID);
                begin
                    begin
                        LNO := To_LNumber(S);
                    exception
                        when Bad_Number =>
                            LNO := 0;
                        when Too_Large =>
                            LNO := 0;
                    end;
                end;
            end if;
        end loop;
    end;

end Rep_Clause5;