Warning, /frameworks/ktexteditor/autotests/input/indent/pascal/longtest4/origin is written in an unsupported language. File is not indexed.

 // kate: space-indent on; indent-width 4; replace-tabs on; remove-trailing-spaces all;
 // kate: syntax pascal; indent-mode pascal;
 
 // these variables are understood by the pascal indenter ...
 // kate: cfgIndentCase false;          // indent elements in a case statement
 // kate: cfgIndentBegin 0;            // indent 'begin' this many spaces
 // kate: debugMode false;              // show how indent is determined
 // kate: cfgAutoInsertStar true;      // auto insert '*' in (* ... *)-comments
 // kate: cfgSnapParen true;           // snap '* )' to '*)' in comments
 
 begin {main program }
 
 if f1 > 0 then result := f1-1
 else begin
 f1 :=  -23;
 end;
 
 case e012 of
 2:
 if eeeeeeeeeeeeeeeeee
 or e33333333333
 then
 a := 12
 else
 for iiiiiiiiiii := 12
                 to 89 // CHECK 89 lines up with 12  
 do begin
 if very_long_expression
 or another_very_long_expression
 and yet_another_very_long_expression then
 s1;
 s11;
 end;
 1:
 if e
 +e2
                              +e3
   +e2
       or 75  // CHECK: follows first continue line
    then
    for i := 1
  to 89
  do begin
  a := 12 + 24
            3 +  // CHECK 3 lines up with 24 above
                           19 +
                             25;
                           s1 := e1
   + e2;
    end;
 5:
 f32verylongfunctionnamezzzzzzzzzzzzzzz(
                        z, // user can realign this anywhere
                                  a,b, // this should line up with 'z'''
                                  c,
                                  d,
                                  e
                               );
 
 3: begin
 s0;
 s3;        // bad code, 'end' is missing
 //end;            // missing end, so next few case values interpreted as labels
 5:
 if q then z;
 
 s3;              // code error - case value belongs here, not statement
 5:
 if c2 then s2;
 
 16:
 if c2 then
 s1;
 17:
 if c2 then begin s1; s2 end;
 
 4:
 if a then begin
 s2;
 s3 // no trailing semi, but it indents
 end;
 end; { ** bad code ** }   // crossed begin/end - matches '3: begin' above
 
 
 2: s2;
 3: while c4
             and e3  do // CHECK: should indent beyond while
 s8;
 1: s1;
 {
 23:
 }
 23: s1;
 s2:
  begin
 s2
 s3 // no trailing semi in line above, but it indents correctly
 end;         // need ';' to force alignment with new case value
 otherwise if a then b;
 if c0 then  begin
 if c1 then begin
 // it does!!
 if c3 then
 write(              // CHECK: deeply nested levels of parens
       f(5.5),
 'test',   // should be aligned
 notCaseValue:4,
 f1(8,8),
 ff( a,
 b( f(13),
 12,
 x
 ),
 c( g(55) ),
 
 ));
 
 end else  // statement unfinished
 otherwise       // duplicate eotherwise
 if a then begin
 b
 end else if a1 then begin
 c;
 c;
 if a
 and a1 then
 b
 else
 c;   { CHECK: outdents only when 'c' is followed by ';' }
 if a then begin
 b;
 b1;
 end else
 s3;
 if a then b else c;
 if a then
 b
 else
 c;
 if a then b
 else f( arg,
 arg2,
 a1,
 a2
             # this is a pp line!!     // bug! silly place to put a pp line
  f( a,
 b
   ));
 
 if a then
 b
 else if c1 then
 s1;
 if c2 then begin
 s33;
 s34
 end;    { !!! classic error, shouldn't be a semi colon here }
 else if c3 then begin
 s44;
 s45
 end else begin
 s;
 s;
 end
 
 end else if c1 then begin // comment
 s3
 end;
 
 while c3 do
 s4;
 end;     // spurious end
 
 s0;
 s1;
 s2;
 s3;
 end // case e012 of
 else if c2 then begin  // spurious else
 
 ss;
 
 if c1 then begin
 write( 'test',
 notCaseValue:4
 )
 end else      // this else has no statement
 end    else begin { should still be in sync }
 
 s1;
 
 s1;
 
 
 
 s2
 end;
 
 f(   a,
 b,
 )
 
 ff(  a,
 b,
 c
 )
 ))
 
 writeln( 'this is a string ', n:1, ' ', ' ', r:10:2 );
 
 with p do
 begin
 
 end;
 
 with p065 do
 begin
 x := 2;
 end;
 case e07 of
 0:
 1:  s1;
 2:  begin
 s2;
 s3;
 end;
 3: s3;
 12:
 
 15:
 4,5,6..9: begin s1; end;
 otherwise
 s6;
 
 
 s3;
 s1;
 
 s2;
 
 while e and
 e2 DO begin { comment }
 s0;
 s33;
 s44;
 end;
 
 if e97 then begin
 s3;
 label:
 while c103 do begin
 s4;
 q := 0;
 case e of
 12,13..16,20: begin
 s2;
 s3;
 end;
 8: writeln( 'test',
    x,
    r:4
    );
 9:
 
 end;
 while c1
    and c2 do begin
 s5;
 s9;
 end;
 
 s;
 s;
 s1;
 if e105 then
 if c2 then begin
 
 s3;
 end; // if
 
 case e11 of
 2..4,5: begin
 s1;
 s2
 end;
 
 
 3: a:= 13;
 
 
 89:
 
 case e12 of
 2,3:
 a:=13;
 2: begin
 a:= 13
 end;
 5,6,
 7:
 otherwise
 
 s3;
 s4;
 end;  // case e12 of
 
 otherwise
 
 
 s4;
 s5;
 if c2 then
 s5
 end; // case e11 of
 
 s3;
 
 end; // while c103
 
 end; // if e97
 
 repeat
 s3;
 s4;
 until c1;
 
 s0;
 s1;
 
 if e then begin
 s3;
 s4;
 s0;
 
 s1;
 
 s1;
 s1;
 end;
 
 repeat
 ss;
 s2;
 if e then
 ss;
 s3;
 s1;
 until e;
 
 if e then begin
 s1;
 s3;
 if e then begin
 s3;
 s5;
 end;
 s6;
 s2;
 end;
 
 
 of:=2; // more bad code
 
 repeat
 s1
 until c;
 
 
 a := 123456789;
 IF (e1) or  (* comment *)
 (e2)  then
 
 begin // CHECK: the begin should follow 'if' line, not 'then' line
 
 if e then begin s end
 else begin
 s1;
 s2;
 end;
 
 if e then
 s0;
 if e then begin
 s1;
 s2;       (  // unattached parens
 
          )
          s;  // problem caused by unattached parens
 end
 123456
 { comment }
 
 if e4 then
 while e5 do begin
 (* ...
     *  CHECK: stars should line up
  *
         *
     *)
 (aa)
 if a then b;   (* qwe
                 *rty *)
    cc;
 s;
 // comment
 
 end;
 
 
 f( a, b)
 
 case e of
 12,13: a:=12;
 1,2,3,4..6: writeln(
 a, 'TODO:', b );
 
 567:
 s2;
 
 88: writeln( 'zzzzzzzzzz',
 a:12,
 b
 );
 99: writeln(
 z:13,
 b
 );
 13: begin
 // no statement
 end;
 
 
 
 0: f( a,
 b
 );
 12: ff (  a,
 b
 );
 (13+12): f( a,
 37,508.18
 );
 
 
 
 2: if a = 12 then
 s1;
 else begin
 s2;
 end;
 
 0: writeln( 'zzzzzzzzz',
 
 a:3,
 b:4,
 'xxxxxxxxxx'
 
 );
 
 1: s1;
 3:
 
 
 
 2: begin
 
 s1;
 s2;
 s3;
 end;
 
 5 :
 writeln( 'this is ',
 'multiline arg list'
 );
 
 
 
 
 5:
 6:
 s1;
 
 9:
 c := 13;
 
 c2,3,4..7: begin
 
 s4;
 sl;
 a := 13;
 
 label:  // this is a label, not case value
 cc;
 
 b := 17;
 
 writeln( 'strrrrrr', a:4 );
 
 end;
 c9 :
 s1;
 
 end; { case e of }
             // comment
 ff(   a,      // this line aligns with 'end'
 b,     // CHECK: keep relative indent
 c
 )
 ;
 
 end;  // begin CHECK:
 
 ggggg:
 
 
 f(
 a,
 b,
 c
 );
 
 
 writeln( a,
 
 b,
 
 b,    { check indent after cr here }
 );
 
 f(13);
 end; // case e07
 
 end. // main