diff --git a/gcc/testsuite/gnat.dg/pack14.adb b/gcc/testsuite/gnat.dg/pack14.adb index c005ad634b2..b3764316b2c 100644 --- a/gcc/testsuite/gnat.dg/pack14.adb +++ b/gcc/testsuite/gnat.dg/pack14.adb @@ -1,4 +1,4 @@ --- { dg- do compile } +-- { dg-do compile } procedure Pack14 is @@ -10,6 +10,7 @@ procedure Pack14 is pragma Pack (Rec); A : Rec := (F => False); + begin null; end;