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/] [loop_address.adb] - Rev 304
Compare with Previous | Blame | View Log
-- { dg-do compile } -- { dg-options "-O -gnatws" } -- PR middle-end/35136 pragma Extend_System(AUX_DEC); with System; procedure Loop_Address is function Y(E : Integer) return String is begin return ""; end Y; function X(C : in System.Address) return String is D : Integer; for D use at C; begin return Y(D); end X; A : System.Address; B : String := ""; begin for I in 0..1 loop B := X(System."+"(A, I)); end loop; end;