diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-17 09:45:38 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-17 09:45:38 +0000 |
| commit | ccb9f29b0418503e0933d7a8da3a0d72ec9937e6 (patch) | |
| tree | 2ba20d8c1e30317a0c7dce8af3fd4020acc90190 /gcc/testsuite | |
| parent | 37f5ff39a98ae165f9b7f47c351ba172e04957d5 (diff) | |
| download | gcc-ccb9f29b0418503e0933d7a8da3a0d72ec9937e6.tar.gz | |
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
Diffstat (limited to 'gcc/testsuite')
| -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 4cead9093c9..3d36b96ff96 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 021ca72881d..550d5892ff2 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; |