diff options
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/derived_type1.adb | 28 |
2 files changed, 32 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d267f5caa5f..dcce334ca4d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2010-04-13 Eric Botcazou <ebotcazou@adacore.com> + + * gnat.dg/derived_type1.adb: New test. + 2010-04-13 Matthias Klose <doko@ubuntu.com> * gcc.dg/plugindir1.c: New testcase. diff --git a/gcc/testsuite/gnat.dg/derived_type1.adb b/gcc/testsuite/gnat.dg/derived_type1.adb new file mode 100644 index 00000000000..c50d5ef466a --- /dev/null +++ b/gcc/testsuite/gnat.dg/derived_type1.adb @@ -0,0 +1,28 @@ +-- { dg-do compile } +-- { dg-options "-gnatws -fdump-tree-original" } + +procedure Derived_Type1 is + + type Root is tagged null record; + + type Derived1 is new Root with record + I1 : Integer; + end record; + + type Derived2 is new Derived1 with record + I2: Integer; + end record; + + R : Root; + D1 : Derived1; + D2 : Derived2; + +begin + R := Root(D1); + R := Root(D2); + D1 := Derived1(D2); +end; + +-- { dg-final { scan-tree-dump-not "VIEW_CONVERT_EXPR<struct derived_type1__root>" "original" } } +-- { dg-final { scan-tree-dump-not "VIEW_CONVERT_EXPR<struct derived_type1__derived1>" "original" } } +-- { dg-final { cleanup-tree-dump "original" } } |