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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [array8.adb] - Diff between revs 304 and 384

Rev 304	Rev 384
`-- { dg-do compile }`	`-- { dg-do compile }`
`-- { dg-options "-O2" }`	`-- { dg-options "-O2" }`

`PROCEDURE Array8 IS`	`PROCEDURE Array8 IS`

`function ID (I : Integer) return Integer is`	`function ID (I : Integer) return Integer is`
`begin`	`begin`
`return I;`	`return I;`
`end;`	`end;`

`SUBTYPE STB IS INTEGER RANGE ID(-8) .. -5;`	`SUBTYPE STB IS INTEGER RANGE ID(-8) .. -5;`

`TYPE TB IS ARRAY (STB RANGE <>) OF INTEGER;`	`TYPE TB IS ARRAY (STB RANGE <>) OF INTEGER;`

`GENERIC`	`GENERIC`
`B1 : TB;`	`B1 : TB;`
`PROCEDURE PROC1;`	`PROCEDURE PROC1;`

`PROCEDURE PROC1 IS`	`PROCEDURE PROC1 IS`
`BEGIN`	`BEGIN`
`IF B1'FIRST /= -8 THEN`	`IF B1'FIRST /= -8 THEN`
`raise Program_Error;`	`raise Program_Error;`
`ELSIF B1'LAST /= ID(-5) THEN`	`ELSIF B1'LAST /= ID(-5) THEN`
`raise Program_Error;`	`raise Program_Error;`
`ELSIF B1 /= (7, 6, 5, 4) THEN`	`ELSIF B1 /= (7, 6, 5, 4) THEN`
`raise Program_Error;`	`raise Program_Error;`
`END IF;`	`END IF;`
`END;`	`END;`

`PROCEDURE PROC2 IS NEW PROC1 ((7, 6, ID(5), 4));`	`PROCEDURE PROC2 IS NEW PROC1 ((7, 6, ID(5), 4));`

`BEGIN`	`BEGIN`
`PROC2;`	`PROC2;`
`END;`	`END;`