size_attribute1_pkg2.adb « specs « gnat.dg « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gnat.dg/specs/size_attribute1_pkg2.adb

blob: ded1c8c659e111ee0a6855c3aa6b415901871a15 (plain)

package body Size_Attribute1_Pkg2 is

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

end Size_Attribute1_Pkg2;