PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays

[official-gcc.git] / gcc / testsuite / gnat.dg / pack20.adb

package body Pack20 is

   procedure Proc (A : Rec) is
      Local : Rec := A;
   begin
      Modify (Local.Fixed);
   end;

end Pack20;