diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2008-07-31 13:55:12 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-07-31 15:55:12 +0200 |
| commit | e116fd0cdf5d11a52d3cb4f885f708f2b4376864 (patch) | |
| tree | c322c74d47dbe66f6e886d8d8014d2376a7b0280 | |
| parent | eff332d9a543eca97da3214564b0e91913980ebd (diff) | |
| download | gcc-e116fd0cdf5d11a52d3cb4f885f708f2b4376864.zip gcc-e116fd0cdf5d11a52d3cb4f885f708f2b4376864.tar.gz gcc-e116fd0cdf5d11a52d3cb4f885f708f2b4376864.tar.bz2 | |
* gnat.dg/specs/null_aggr_bug.ads: New test.
From-SVN: r138413
| -rw-r--r-- | gcc/testsuite/ChangeLog | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/specs/null_aggr_bug.ads | 20 |
2 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5cc5467..ccbd971 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -3,6 +3,7 @@ * gnat.dg/sync_iface_test.ad[s,b]: New test. * gnat.dg/specs/sync_iface_test.ads: New test. + * gnat.dg/specs/null_aggr_bug.ads: New test. 2008-07-31 H.J. Lu <hongjiu.lu@intel.com> diff --git a/gcc/testsuite/gnat.dg/specs/null_aggr_bug.ads b/gcc/testsuite/gnat.dg/specs/null_aggr_bug.ads new file mode 100644 index 0000000..95467f4 --- /dev/null +++ b/gcc/testsuite/gnat.dg/specs/null_aggr_bug.ads @@ -0,0 +1,20 @@ +-- { dg-do compile } +package Null_Aggr_Bug is + + type Rec1 is null record; + + type Rec2 is tagged null record; + + type Rec3 is new Rec2 with null record; + + X1 : Rec1 := (null record); + Y1 : Rec1 := (others => <>); + + X2 : Rec2 := (null record); + Y2 : Rec2 := (others => <>); + + X3 : Rec3 := (null record); + Y3 : Rec3 := (others => <>); + Z3 : Rec3 := (Rec2 with others => <>); + +end Null_Aggr_Bug; |