mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 17:30:58 +08:00
Code Issues Packages Projects Releases Wiki Activity

* gnat.dg/opt13_pkg.ad[sb]: Fix line ending.

Browse Source 
From-SVN: r168227
This commit is contained in:
Eric Botcazou 2010-12-24 16:15:38 +00:00 committed by Eric Botcazou
parent 877bf1953a
commit e66d38fe05
3 changed files with 50 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2010-12-24 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/opt13_pkg.ad[sb]: Fix line ending.
2010-12-24 Nicola Pero <nicola.pero@meta-innovation.com>
* obj-c.dg/gnu-api-2-class.m: Test that class_conformsToProtocol()

62
gcc/testsuite/gnat.dg/opt13_pkg.adb
View File

@ -1,31 +1,31 @@
package body Opt13_Pkg is
subtype Index_Type is Natural range 0 .. 16;
type Arr is array (Index_Type range <>) of Integer;
type Rec is record
F1, F2, F3 : Float;
N : Natural;
B1, B2 : Boolean;
F4 : Float;
end record;
type Data (D : Index_Type) is record
A : Arr (1 .. D);
R : Rec;
end record;
Zero : constant Rec := (0.0, 0.0, 0.0, 0, False, False, 0.0);
procedure Allocate (T : out My_Type) is
begin
T := new Data (Index_Type'last);
T.R := Zero;
for I in 1 .. T.A'last loop
N := 1;
end loop;
end;
end Opt13_Pkg;
package body Opt13_Pkg is
subtype Index_Type is Natural range 0 .. 16;
type Arr is array (Index_Type range <>) of Integer;
type Rec is record
F1, F2, F3 : Float;
N : Natural;
B1, B2 : Boolean;
F4 : Float;
end record;
type Data (D : Index_Type) is record
A : Arr (1 .. D);
R : Rec;
end record;
Zero : constant Rec := (0.0, 0.0, 0.0, 0, False, False, 0.0);
procedure Allocate (T : out My_Type) is
begin
T := new Data (Index_Type'last);
T.R := Zero;
for I in 1 .. T.A'last loop
N := 1;
end loop;
end;
end Opt13_Pkg;

30
gcc/testsuite/gnat.dg/opt13_pkg.ads
View File

@ -1,15 +1,15 @@
package Opt13_Pkg is
N : Natural := 0;
type My_Type is private;
procedure Allocate (T : out My_Type);
private
type Data;
type My_Type is access Data;
end Opt13_Pkg;
package Opt13_Pkg is
N : Natural := 0;
type My_Type is private;
procedure Allocate (T : out My_Type);
private
type Data;
type My_Type is access Data;
end Opt13_Pkg;