From: Eric Botcazou <ebotcazou@adacore.com>
Date: Wed, 5 May 2021 10:48:44 +0000 (+0200)
Subject: Minor formatting tweak
X-Git-Tag: basepoints/gcc-13~7802
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0bd8a9ef70e5461b68f1ec34a4fbee3eb7021510;p=thirdparty%2Fgcc.git

Minor formatting tweak

gcc/testsuite/
	* gnat.dg/debug17.adb: Minor tweak.
---

diff --git a/gcc/testsuite/gnat.dg/debug17.adb b/gcc/testsuite/gnat.dg/debug17.adb
index 4f33ecd4b4b9..d3ad8120647f 100644
--- a/gcc/testsuite/gnat.dg/debug17.adb
+++ b/gcc/testsuite/gnat.dg/debug17.adb
@@ -8,15 +8,13 @@ procedure Debug17 (Number_Of_Bits : Natural) is
 
    type Bitinfos_T is array (Natural range 1 .. Number_Of_Bits) of Float;
 
-   type Inner_Record_T is
-      record
-         Bitinfos : Bitinfos_T := (others => 1.5);
-         Check1 : Integer := 1983;
-         Check2 : Integer := 1995;
-         Flag : Boolean := False;
-         Check3 : Integer := 2005;
-
-      end record;
+   type Inner_Record_T is record
+      Bitinfos : Bitinfos_T := (others => 1.5);
+      Check1 : Integer := 1983;
+      Check2 : Integer := 1995;
+      Flag : Boolean := False;
+      Check3 : Integer := 2005;
+   end record;
 
    Rfield : Inner_Record_T;