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

From-SVN: r146231

diff --git a/gcc/testsuite/gnat.dg/ref_type.adb b/gcc/testsuite/gnat.dg/ref_type.adb
index 4cead9093c95b7aa43edf793bf1738c5fdbcce5b..3d36b96ff9628792f0efb66bf55c36bad28e682c 100644 (file)
--- 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;

diff --git a/gcc/testsuite/gnat.dg/ref_type.ads b/gcc/testsuite/gnat.dg/ref_type.ads
index 021ca72881daf8aa1911f032faf880d6f3b98220..550d5892ff274ac0c9f69f938272241a84057468 100644 (file)
--- a/gcc/testsuite/gnat.dg/ref_type.ads
+++ b/gcc/testsuite/gnat.dg/ref_type.ads
@@ -1,5 +1,5 @@
 package ref_type is
 private
-   type T is tagged;
+   type T is tagged null record;
    procedure Print (X : T);
 end ref_type;