procedure T_Folding is
   --  Very long comment:
   
--  Moreover, the elements of Array input parameter vs output parameter shall be ordered by increasing order of first coordinate, i.e. Array input parameter vs output parameter can be written under th
-- e form:

   -- Very long string:
   X : String := 
"Moreover, the elements of Array input parameter vs output parameter shall be ordered by increasing order of first coordinate, i.e. Array input parameter vs output parameter can be written under the "
& "form:";

     -- Very long line that cannot be cut:
     
ID_4567890_234567890_234567890_234567890_234567890_234567890_234567890_234567890_234567890_234567890_234567890_234567890_234567890_234567890_234567890_234567890_234567890_234567890_234567890_234567890
?Line cut? _234567890  : Integer;
begin
   null;
end T_Folding;
