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/] [old_errors.adb] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } package body Old_Errors is A : Integer; function F (X : Integer := A'Old) -- { dg-error "can only appear within subprogram" } return Integer is begin return X; end F; procedure P (I : in Integer; O : out Integer; IO : in out Integer) is Y : Integer := 0; function G (X : Integer := Y'Old) -- { dg-error "cannot refer to local variable" } return Integer is begin return X; end G; function H (X : Integer := A'Old) return Integer is -- OK begin return X; end H; begin Y := Y'Old; -- { dg-error "cannot refer to local variable" } declare Z : Integer := 0; procedure Inner is IL : Integer := 0; begin IL := IL'Old; -- { dg-error "cannot refer to local variable" } Z := Z'Old; -- OK end Inner; begin Y := Z'Old; -- { dg-error "cannot refer to local variable" } end; Y := I'Old; -- { dg-warning "Old applied to constant has no effect" } Y := O'Old; -- OK Y := IO'Old; -- OK Y := G; -- OK, error has been signalled at G declaration pragma Assert (G (3)'Old = Y); -- { dg-error "cannot refer to local variable" } end P; end Old_Errors;
Go to most recent revision | Compare with Previous | Blame | View Log