Fix test after proper rule enforced by gnat on taft types.

From-SVN: r146231

Fix test after proper rule enforced by gnat on taft types.
From-SVN: r146231
612ce71b · Arnaud Charlet · f3b01cd9 · 612ce71b · 612ce71b
Commit 612ce71b authored Apr 17, 2009 by Arnaud Charlet
Hide whitespace changes
Inline Side-by-side

Showing with 1 additions and 2 deletions

gcc/testsuite/gnat.dg/ref_type.adb
+0 -1

gcc/testsuite/gnat.dg/ref_type.ads
+1 -1

No files found.
--- a/gcc/testsuite/gnat.dg/ref_type.adb
+++ b/gcc/testsuite/gnat.dg/ref_type.adb
@@ -2,7 +2,6 @@
 --  { dg-do compile }
 package body ref_type is
-  type T is tagged null record;
  procedure Print (X : T) is                                   
  begin                                                        
     null;

--- a/gcc/testsuite/gnat.dg/ref_type.ads
+++ b/gcc/testsuite/gnat.dg/ref_type.ads
 package ref_type is
 private
-   type T is tagged;
+   type T is tagged null record;
   procedure Print (X : T);
 end ref_type;