From 0bd8a9ef70e5461b68f1ec34a4fbee3eb7021510 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Wed, 5 May 2021 12:48:44 +0200 Subject: Minor formatting tweak gcc/testsuite/ * gnat.dg/debug17.adb: Minor tweak. --- gcc/testsuite/gnat.dg/debug17.adb | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) (limited to 'gcc') diff --git a/gcc/testsuite/gnat.dg/debug17.adb b/gcc/testsuite/gnat.dg/debug17.adb index 4f33ecd..d3ad812 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; -- cgit v1.1