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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [opt4.adb] - Blame information for rev 774

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


-- { dg-do run }
-- { dg-options "-O2" }
 
procedure Opt4 is
 
  type Rec (D : Natural) is record
    S : String (1..D);
  end record;
 
  procedure Test (R : Rec) is
  begin
    if R.D /= 9 then
      raise Program_Error;
    end if;
  end;
 
  R : Rec(9);
 
begin
  R := (9, "123456789");
  Test (R);
end;

Line No.	Rev	Author	Line
1	696	jeremybenn	`-- { dg-do run }`
2			`-- { dg-options "-O2" }`
3
4			`procedure Opt4 is`
5
6			`type Rec (D : Natural) is record`
7			`S : String (1..D);`
8			`end record;`
9
10			`procedure Test (R : Rec) is`
11			`begin`
12			`if R.D /= 9 then`
13			`raise Program_Error;`
14			`end if;`
15			`end;`
16
17			`R : Rec(9);`
18
19			`begin`
20			`R := (9, "123456789");`
21			`Test (R);`
22			`end;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [opt4.adb] - Blame information for rev 774