gcc/testsuite/gnat.dg/slice8_pkg3.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-gnatws" }
   3
   4 package body Slice8_Pkg3 is
   5
   6    Current : Str.Lines (Str.Line_Count);
   7    Last    : Natural := 0;
   8
   9    function Get return Str.Paragraph is
  10       Result : constant Str.Paragraph := (Size => Last,
  11                                           Data => Current (1..Last));
  12    begin
  13       Last := 0;
  14       return Result;
  15    end Get;
  16
  17 end Slice8_Pkg3;