1 files changed, 28 insertions, 28 deletions
diff --git a/gcc/testsuite/gnat.dg/aggr18.adb b/gcc/testsuite/gnat.dg/aggr18.adb
index 511add8a17d..6b5281e4164 100644
--- a/gcc/testsuite/gnat.dg/aggr18.adb
+++ b/gcc/testsuite/gnat.dg/aggr18.adb
@@ -1,28 +1,28 @@
--- { dg-do compile }
--- { dg-options "-gnatws" }
-
-procedure Aggr18 is
-
-   type Enum is (A, B);
-
-   type Rec (D : Enum := Enum'First) is record
-      case D is
-         when A => X : Integer;
-         when B => null;
-      end case;
-   end record;
-   for Rec'Size use 128;
-   pragma Volatile (Rec);
-
-   type Config_T (D : Enum := Enum'First) is record
-      N : Natural;
-      R : Rec (D);
-   end record;
-
-   C : Config_T := (D => A, N => 1, R => (D => A, X => 0));
-
-   type Arr is array (Natural range 1 .. C.N) of Boolean;
-
-begin
-   null;
-end;
+-- { dg-do compile }
+-- { dg-options "-gnatws" }
+
+procedure Aggr18 is
+
+   type Enum is (A, B);
+
+   type Rec (D : Enum := Enum'First) is record
+      case D is
+         when A => X : Integer;
+         when B => null;
+      end case;
+   end record;
+   for Rec'Size use 128;
+   pragma Volatile (Rec);
+
+   type Config_T (D : Enum := Enum'First) is record
+      N : Natural;
+      R : Rec (D);
+   end record;
+
+   C : Config_T := (D => A, N => 1, R => (D => A, X => 0));
+
+   type Arr is array (Natural range 1 .. C.N) of Boolean;
+
+begin
+   null;
+end;