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/] [no_final.adb] - Rev 435
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } pragma Restrictions (No_Finalization); procedure no_final is package P is type T is tagged null record; type T1 is new T with record A : String (1..80); end record; function F return T'Class; end P; Str : String (1..80) := (1..80=>'x'); package body P is function F return T'Class is X : T1 := T1'(A => Str); begin return X; end F; end P; Obj : P.T'class := P.F; begin if P.T1 (Obj).A /= Str then raise Constraint_Error; end if; end;
Go to most recent revision | Compare with Previous | Blame | View Log