Wattributes-10.c: Add -fno-common option on hppa*-*-hpux*.
[official-gcc.git] / gcc / testsuite / gnat.dg / slice2.adb
blob87c0bcd879081621c840710ce07a00b151157472
1 -- { dg-do compile }
2 -- { dg-options "-O" }
4 package body Slice2 is
6 function F (I : R1) return R2 is
7 Val : R2;
8 begin
9 Val.Text (1 .. 8) := I.Text (1 .. 8);
10 return Val;
11 end F;
13 end Slice2;