gcc-4.9/gcc/testsuite/gnat.dg/specs/size_attribute1_pkg2.adb


1
2
3
4
5
6
7
8
9

package body Size_Attribute1_Pkg2 is

  procedure Proc is
    I : Integer := T'Size;
  begin
    null;
  end;

end Size_Attribute1_Pkg2;