+2010-12-24 Eric Botcazou <ebotcazou@adacore.com>
+
+ * gnat.dg/opt13_pkg.ad[sb]: Fix line ending.
+
2010-12-24 Nicola Pero <nicola.pero@meta-innovation.com>
* obj-c.dg/gnu-api-2-class.m: Test that class_conformsToProtocol()
-package body Opt13_Pkg is\r
-\r
- subtype Index_Type is Natural range 0 .. 16;\r
-\r
- type Arr is array (Index_Type range <>) of Integer;\r
-\r
- type Rec is record\r
- F1, F2, F3 : Float;\r
- N : Natural;\r
- B1, B2 : Boolean;\r
- F4 : Float;\r
- end record;\r
-\r
- type Data (D : Index_Type) is record\r
- A : Arr (1 .. D);\r
- R : Rec;\r
- end record;\r
-\r
- Zero : constant Rec := (0.0, 0.0, 0.0, 0, False, False, 0.0);\r
-\r
- procedure Allocate (T : out My_Type) is\r
- begin\r
- T := new Data (Index_Type'last);\r
- T.R := Zero;\r
-\r
- for I in 1 .. T.A'last loop\r
- N := 1;\r
- end loop;\r
- end;\r
-\r
-end Opt13_Pkg;\r
+package body Opt13_Pkg is
+
+ subtype Index_Type is Natural range 0 .. 16;
+
+ type Arr is array (Index_Type range <>) of Integer;
+
+ type Rec is record
+ F1, F2, F3 : Float;
+ N : Natural;
+ B1, B2 : Boolean;
+ F4 : Float;
+ end record;
+
+ type Data (D : Index_Type) is record
+ A : Arr (1 .. D);
+ R : Rec;
+ end record;
+
+ Zero : constant Rec := (0.0, 0.0, 0.0, 0, False, False, 0.0);
+
+ procedure Allocate (T : out My_Type) is
+ begin
+ T := new Data (Index_Type'last);
+ T.R := Zero;
+
+ for I in 1 .. T.A'last loop
+ N := 1;
+ end loop;
+ end;
+
+end Opt13_Pkg;
-package Opt13_Pkg is\r
-\r
- N : Natural := 0;\r
-\r
- type My_Type is private;\r
-\r
- procedure Allocate (T : out My_Type);\r
-\r
-private\r
-\r
- type Data;\r
-\r
- type My_Type is access Data;\r
-\r
-end Opt13_Pkg;\r
+package Opt13_Pkg is
+
+ N : Natural := 0;
+
+ type My_Type is private;
+
+ procedure Allocate (T : out My_Type);
+
+private
+
+ type Data;
+
+ type My_Type is access Data;
+
+end Opt13_Pkg;