diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-17 11:45:38 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-17 11:45:38 +0200 |
| commit | 612ce71b1b86e14dc111f4ee59682b3f9f96aee2 (patch) | |
| tree | 2ba20d8c1e30317a0c7dce8af3fd4020acc90190 /gcc | |
| parent | f3b01cd988069ab653fb34488c6f0ea9bfb2bae6 (diff) | |
| download | gcc-612ce71b1b86e14dc111f4ee59682b3f9f96aee2.zip gcc-612ce71b1b86e14dc111f4ee59682b3f9f96aee2.tar.gz gcc-612ce71b1b86e14dc111f4ee59682b3f9f96aee2.tar.bz2 | |
Fix test after proper rule enforced by gnat on taft types.
From-SVN: r146231
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gnat.dg/ref_type.adb | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/ref_type.ads | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/gcc/testsuite/gnat.dg/ref_type.adb b/gcc/testsuite/gnat.dg/ref_type.adb index 4cead90..3d36b96 100644 --- 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 --- 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; |