--- { dg-do compile }\r
-\r
-package body Discr35 is\r
-\r
- procedure Proc1 is\r
- R : Rec2 := Null_Rec2;\r
- begin\r
- null;\r
- end;\r
-\r
- procedure Proc2 is\r
- R : Rec2;\r
- begin\r
- R := Null_Rec2;\r
- end;\r
-\r
-end Discr35;\r
+-- { dg-do compile }
+
+package body Discr35 is
+
+ procedure Proc1 is
+ R : Rec2 := Null_Rec2;
+ begin
+ null;
+ end;
+
+ procedure Proc2 is
+ R : Rec2;
+ begin
+ R := Null_Rec2;
+ end;
+
+end Discr35;