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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146231 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/gnat.dg/ref_type.adb b/gcc/testsuite/gnat.dg/ref_type.adb
index 4cead90..3d36b96 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 021ca72..550d589 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;