Don't use CRLF endings.

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

diff --git a/gcc/testsuite/gnat.dg/array19.adb b/gcc/testsuite/gnat.dg/array19.adb
index 56b05d6..8667a3f 100644 (file)
--- a/gcc/testsuite/gnat.dg/array19.adb
+++ b/gcc/testsuite/gnat.dg/array19.adb
@@ -1,34 +1,34 @@
--- { dg-do compile }\r
-\r
-package body Array19 is\r
-\r
-   function N return Integer is\r
-   begin\r
-      return 1;\r
-   end;\r
-\r
-   type Array_Type is array (1 .. N) of Float;\r
-\r
-   type Enum is (One, Two);\r
-\r
-   type Rec (D : Enum := Enum'First) is record\r
-      case D is\r
-         when One => null;\r
-         when Two => A : Array_Type;\r
-      end case;\r
-   end record;\r
-\r
-   procedure Proc is\r
-\r
-      R : Rec;\r
-\r
-      function F return Array_Type is\r
-      begin\r
-         return (others => 0.0);\r
-      end F;\r
-\r
-   begin\r
-      R.A := F;\r
-   end;\r
-\r
-end Array19;\r
+-- { dg-do compile }
+
+package body Array19 is
+
+   function N return Integer is
+   begin
+      return 1;
+   end;
+
+   type Array_Type is array (1 .. N) of Float;
+
+   type Enum is (One, Two);
+
+   type Rec (D : Enum := Enum'First) is record
+      case D is
+         when One => null;
+         when Two => A : Array_Type;
+      end case;
+   end record;
+
+   procedure Proc is
+
+      R : Rec;
+
+      function F return Array_Type is
+      begin
+         return (others => 0.0);
+      end F;
+
+   begin
+      R.A := F;
+   end;
+
+end Array19;