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

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

package body Elab3_Pkg is
   procedure Elaborator is
   begin
      Proc;
   end Elaborator;

begin
   if Elaborate then
      Elaborator;
   end if;
end Elab3_Pkg;