diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-05-05 12:48:44 +0200 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2021-05-05 12:48:44 +0200 |
| commit | 0bd8a9ef70e5461b68f1ec34a4fbee3eb7021510 (patch) | |
| tree | 88aad5570c55fd8cbfdb4cf6fa5dea4f8f9d90bc /gcc | |
| parent | 5747baa984d96241e4e2608da3c3e0160e32410b (diff) | |
| download | gcc-0bd8a9ef70e5461b68f1ec34a4fbee3eb7021510.zip gcc-0bd8a9ef70e5461b68f1ec34a4fbee3eb7021510.tar.gz gcc-0bd8a9ef70e5461b68f1ec34a4fbee3eb7021510.tar.bz2 | |
Minor formatting tweak
gcc/testsuite/
* gnat.dg/debug17.adb: Minor tweak.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gnat.dg/debug17.adb | 16 |
1 files changed, 7 insertions, 9 deletions
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; |