Don't use CRLF endings.

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / array14.adb

diff --git a/gcc/testsuite/gnat.dg/array14.adb b/gcc/testsuite/gnat.dg/array14.adb
index aed2901..2d45cf1 100644 (file)
--- a/gcc/testsuite/gnat.dg/array14.adb
+++ b/gcc/testsuite/gnat.dg/array14.adb
@@ -1,35 +1,35 @@
--- { dg-do compile }\r
--- { dg-options "-gnatws" }\r
-\r
-with Array14_Pkg; use Array14_Pkg;\r
-\r
-package body Array14 is\r
-\r
-  package Nested is\r
-\r
-    Length : constant SSE.Storage_Count := Length2;\r
-\r
-    subtype Encoded_Index_Type is SSE.Storage_Count range 1 .. Length;\r
-    subtype Encoded_Type is SSE.Storage_Array (Encoded_Index_Type'Range);\r
-\r
-    procedure Encode (Input : in Integer; Output : out Encoded_Type);\r
-\r
-  end;\r
-\r
-  package body Nested is\r
-\r
-    procedure Encode (Input : in Integer; Output : out Encoded_Type) is\r
-    begin\r
-      Encode2 (Input, Output);\r
-    end;\r
-\r
-  end;\r
-\r
-  procedure Init is\r
-    O : Nested.Encoded_Type;\r
-    for O'Alignment use 4;\r
-  begin\r
-    null;\r
-  end;\r
-\r
-end Array14;\r
+-- { dg-do compile }
+-- { dg-options "-gnatws" }
+
+with Array14_Pkg; use Array14_Pkg;
+
+package body Array14 is
+
+  package Nested is
+
+    Length : constant SSE.Storage_Count := Length2;
+
+    subtype Encoded_Index_Type is SSE.Storage_Count range 1 .. Length;
+    subtype Encoded_Type is SSE.Storage_Array (Encoded_Index_Type'Range);
+
+    procedure Encode (Input : in Integer; Output : out Encoded_Type);
+
+  end;
+
+  package body Nested is
+
+    procedure Encode (Input : in Integer; Output : out Encoded_Type) is
+    begin
+      Encode2 (Input, Output);
+    end;
+
+  end;
+
+  procedure Init is
+    O : Nested.Encoded_Type;
+    for O'Alignment use 4;
+  begin
+    null;
+  end;
+
+end Array14;