URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [alignment1.adb] - Blame information for rev 399

Go to most recent revision | Details | Compare with Previous | View Log


-- { dg-do run }
-- { dg-options "-gnatws" }
 
procedure alignment1 is
 
  type My_Integer is record
    Element : Integer;
  end record;
 
  F : My_Integer;
 
begin
  if F'Alignment /= F.Element'Alignment then
    raise Program_Error;
  end if;
end;

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { dg-do run }`
2			`-- { dg-options "-gnatws" }`
3
4			`procedure alignment1 is`
5
6			`type My_Integer is record`
7			`Element : Integer;`
8			`end record;`
9
10			`F : My_Integer;`
11
12			`begin`
13			`if F'Alignment /= F.Element'Alignment then`
14			`raise Program_Error;`
15			`end if;`
16			`end;`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [alignment1.adb] - Blame information for rev 399