Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/rep_clause5.adb @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { 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;