OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

discr53.ad[sb]: New test.

Browse Source 
* gnat.dg/discr53.ad[sb]: New test.
	* gnat.dg/discr53_pkg.ads: New helper.

From-SVN: r261102
This commit is contained in:
Eric Botcazou 2018-06-02 09:37:31 +00:00 committed by Eric Botcazou
parent 4cda703ebc
commit 82b337774c
4 changed files with 45 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/testsuite/ChangeLog
View File

@ -1,7 +1,9 @@
2018-06-01 Carl Love <cel@us.ibm.com>
2018-06-02 Eric Botcazou <ebotcazou@adacore.com>
Commit 260294 on 2018-05-16 by Carl Love was supposed to add the
following files.
* gnat.dg/discr53.ad[sb]: New test.
* gnat.dg/discr53_pkg.ads: New helper.
2018-06-01 Carl Love <cel@us.ibm.com>
* gcc.target/powerpc/vsx-vector-6-be.p7.c: New test file.
* gcc.target/powerpc/vsx-vector-6-be.p8.c: New test file.
@ -1092,8 +1094,6 @@ following files.
2018-05-16 Carl Love <cel@us.ibm.com>
* gcc.target/powerpc/vsx-vector-6-be.c: Remove file.
* gcc.target/powerpc/vsx-vector-6-be.p7.c: New test file.
* gcc.target/powerpc/vsx-vector-6-be.p8.c: New test file.
* gcc.target/powerpc/vsx-vector-6-le.c (dg-final): Update counts for
xvcmpeqdp., xvcmpgtdp., xvcmpgedp., xxlxor, xvrdpi.

19
gcc/testsuite/gnat.dg/discr53.adb Normal file
View File

@ -0,0 +1,19 @@
-- { dg-do compile }
package body Discr53 is
function F return Rec is
Data : Rec;
begin
return Data;
end;
type Ptr is access Rec;
procedure Proc is
Local : Ptr;
begin
Local := new Rec'(F);
end;
end Discr53;

16
gcc/testsuite/gnat.dg/discr53.ads Normal file
View File

@ -0,0 +1,16 @@
with Discr53_Pkg;
package Discr53 is
type Rec (D : Boolean := False) is record
case D is
when True => S : String (1 .. Discr53_Pkg.Max);
when False => null;
end case;
end record;
function F return Rec;
procedure Proc;
end Discr53;

5
gcc/testsuite/gnat.dg/discr53_pkg.ads Normal file
View File

@ -0,0 +1,5 @@
package Discr53_Pkg is
function Max return Natural;
end Discr53_Pkg;