OpenCores
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/] [alignment7.adb] - Blame information for rev 304

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
-- { dg-do run }
2
 
3
with System;
4
 
5
procedure Alignment7 is
6
 
7
  type R is record
8
    I : Integer;
9
    F : Long_Float;
10
  end record;
11
  for R'Alignment use 8;
12
 
13
  procedure Q (A : System.Address) is
14
    F : Long_Float;
15
    for F'Address use A;
16
  begin
17
    F := 0.0;
18
  end;
19
 
20
  V : R;
21
 
22
begin
23
  Q (V.F'Address);
24
end;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.