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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 696 jeremybenn
--  { dg-do compile }
2
 
3
procedure parameterlessfunc is
4
  type Byte is mod 256;
5
  type Byte_Array is array(Byte range <>) of Byte;
6
  subtype Index is Byte range 0..7;
7
  subtype Small_Array is Byte_Array(Index);
8
 
9
  function F return Byte_Array is
10
  begin
11
    return (0..255=>0);
12
  end F;
13
 
14
  B5: Small_Array := F(Index);
15
begin
16
  null;
17
end parameterlessfunc;

powered by: WebSVN 2.1.0

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