1 files changed, 39 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/rep_clause5.adb b/gcc/testsuite/gnat.dg/rep_clause5.adb
new file mode 100644
index 000000000..7fdf26409
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/rep_clause5.adb
@@ -0,0 +1,39 @@
+-- { 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;