------- Comment #5 from ebotcazou at gcc dot gnu dot org 2005-10-21 18:43
-------
Works on mainline, the front-end doesn't generate the same expanded code:
--- gcc-4_0-branch/sparc-sun-solaris2.8/pr23995.ads.dg 2005-10-21
20:39:56.006059768 +0200
+++ gcc/sparc-sun-solaris2.8/pr23995.ads.dg 2005-10-21 20:40:11.488706048
+0200
@@ -30,7 +30,9 @@
freeze p__test_a [
procedure p__test_aIP (_init : in out p__test_a) is
begin
- p__test1IP (_init.t1);
+ T1s : p__test1;
+ p__test1IP (T1s);
+ _init.t1 := T1s;
return;
end p__test_aIP;
]
--
ebotcazou at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC|ebotcazou at gcc dot gnu dot|
|org |
Known to work|3.3 |3.3 4.1.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23995
