Test suite results for test file ../packages/fcl-passrc/tests/testpassrc.pp

Test run data :

Run ID:
Operating system: linux
Processor: powerpc
Version: 3.2.3
Fails/OK/Total: 47/7936/7983
Version: 3.2.3
Full version: 3.2.3-1374-g849fbd722c-unpushed
Comment: -CX -XX -O4 -Xd -Fl/usr/lib32 -Fd -Fl/usr/lib/gcc/powerpc64-linux-gnu/13/32 -Fd
Machine: gcc203
Category: 1
SVN revisions: fdf93c5b29:849fbd722c:ae0fe8a6a0:d1c29e6cb9
Submitter: pierre
Date: 2024/04/19 11:33:00 <> 2024/04/10
Previous run: 933773
Next run: 936204

Hide skipped tests

Hide successful tests

Test file "../packages/fcl-passrc/tests/testpassrc.pp" information:

t_id 6287
t_adddate 2021/08/18 08:34:07
t_result 0
t_knownrunerror 0
t_opts -Sc

Detailed test run results:

tr_idruntr_oktr_skiptr_result
443828487934994FalseFalseFailed to run

Record count: 1

Log of 934994: 

// TestEOF

// TestEOF

// TestEOF

// TestWhitespace
 
// TestWhitespace
 
// TestWhitespace
 
// TestWhitespace
 
// TestWhitespace
 
// TestWhitespace
 
// TestWhitespace
 
// TestWhitespace
 
// TestComment1
{ comment }
// TestComment1
{ comment }
// TestComment1
{ COMMENT }
// TestComment1
{ comment }
// TestComment2
(* comment *)
// TestComment2
(* comment *)
// TestComment2
(* COMMENT *)
// TestComment2
(* comment *)
// TestComment3
//
// TestComment3
//
// TestComment3
//
// TestComment3
//
// TestComment4
(* abc *)
// TestComment5
(* abc
def *)
// TestComment6
{ abc }
// TestComment7
{ abc
def }
// TestComment8
// abc 
// TestComment9
// abc 

// TestNestedComment1
// { comment } 
// TestNestedComment1
// { comment } 
// TestNestedComment1
// { COMMENT } 
// TestNestedComment1
// { comment } 
// TestNestedComment2
(* { comment } *)
// TestNestedComment2
(* { comment } *)
// TestNestedComment2
(* { COMMENT } *)
// TestNestedComment2
(* { comment } *)
// TestNestedComment3
{ { comment } }
// TestNestedComment3
{ { comment } }
// TestNestedComment3
{ { COMMENT } }
// TestNestedComment3
{ { comment } }
// TestNestedComment4
{ (* comment *) }
// TestNestedComment4
{ (* comment *) }
// TestNestedComment4
{ (* COMMENT *) }
// TestNestedComment4
{ (* comment *) }
// TestNestedComment5
(* (* comment *) *)
// TestNestedComment5
(* (* comment *) *)
// TestNestedComment5
(* (* COMMENT *) *)
// TestNestedComment5
(* (* comment *) *)
// TestonComment
(* abc *)
// TestIdentifier
identifier
// TestIdentifier
Identifier
// TestIdentifier
IDENTIFIER
// TestIdentifier
identifier
// TestSelf
self
// TestSelf
Self
// TestSelf
SELF
// TestSelf
self
// TestSelfNoToken
self
// TestSelfNoToken
Self
// TestSelfNoToken
SELF
// TestSelfNoToken
self
// TestString
'A string'
// TestString
'A string'
// TestString
'A STRING'
// TestString
'a string'
// TestMultilineStringError
`A 
multiline string`
// TestMultilineStringSource
`AB
CD`
// TestMultilineStringLF
`AB
CD`
// TestMultilineStringCR
`AB
CD`
// TestMultilineStringCRLF
`AB
CD`
// TestMultilineStringPlatform
`AB
CD`
// TestMultilineLineEndingDirective
{$MULTILINESTRINGLINEENDING CR}
// TestMultilineLineEndingDirective
{$MULTILINESTRINGLINEENDING LF}
// TestMultilineLineEndingDirective
{$MULTILINESTRINGLINEENDING CRLF}
// TestMultilineLineEndingDirective
{$MULTILINESTRINGLINEENDING SOURCE}
// TestMultilineLineEndingDirective
{$MULTILINESTRINGLINEENDING PLATFORM}
// TestMultilineTrimLeftDirective
{$MULTILINESTRINGTRIMLEFT 1}
// TestMultilineTrimLeftDirective
{$MULTILINESTRINGTRIMLEFT 2}
// TestMultilineTrimLeftDirective
{$MULTILINESTRINGTRIMLEFT ALL}
// TestMultilineTrimLeftDirective
{$MULTILINESTRINGTRIMLEFT AUTO}
// TestMultilineStringTrimAll
`AB
    CD`
// TestMultilineStringTrimAuto
 `AB
   CD`
// TestMultilineStringTrim2
 `AB
   CD`
// TestMultilineStringTrim2
 `AB
 CD`
// TestNumber
123
// TestNumber
123
// TestNumber
123
// TestNumber
123
// TestChar
#65 
// TestChar
#65 
// TestChar
#65 
// TestChar
#65 
// TestCharString
'A'
// TestCharString
'A'
// TestCharString
'A'
// TestCharString
'a'
// TestCaretString
a = ^C'abc';
// TestBraceOpen
(
// TestBraceOpen
(
// TestBraceOpen
(
// TestBraceOpen
(
// TestBraceClose
)
// TestBraceClose
)
// TestBraceClose
)
// TestBraceClose
)
// TestMul
*
// TestMul
*
// TestMul
*
// TestMul
*
// TestPlus
+
// TestPlus
+
// TestPlus
+
// TestPlus
+
// TestComma
,
// TestComma
,
// TestComma
,
// TestComma
,
// TestMinus
-
// TestMinus
-
// TestMinus
-
// TestMinus
-
// TestDot
.
// TestDot
.
// TestDot
.
// TestDot
.
// TestDivision
/
// TestDivision
/
// TestDivision
/
// TestDivision
/
// TestColon
:
// TestColon
:
// TestColon
:
// TestColon
:
// TestSemicolon
;
// TestSemicolon
;
// TestSemicolon
;
// TestSemicolon
;
// TestLessThan
<
// TestLessThan
<
// TestLessThan
<
// TestLessThan
<
// TestEqual
=
// TestEqual
=
// TestEqual
=
// TestEqual
=
// TestGreaterThan
>
// TestGreaterThan
>
// TestGreaterThan
>
// TestGreaterThan
>
// TestAt
@
// TestAt
@
// TestAt
@
// TestAt
@
// TestSquaredBraceOpen
[
// TestSquaredBraceOpen
[
// TestSquaredBraceOpen
[
// TestSquaredBraceOpen
[
// TestSquaredBraceOpen
(.
// TestSquaredBraceOpen
(.
// TestSquaredBraceOpen
(.
// TestSquaredBraceOpen
(.
// TestSquaredBraceClose
]
// TestSquaredBraceClose
]
// TestSquaredBraceClose
]
// TestSquaredBraceClose
]
// TestSquaredBraceClose
.)
// TestSquaredBraceClose
.)
// TestSquaredBraceClose
.)
// TestSquaredBraceClose
.)
// TestSquaredBraceClose
1.)
// TestCaret
^
// TestCaret
^
// TestCaret
^
// TestCaret
^
// TestBackslash
\
// TestBackslash
\
// TestBackslash
\
// TestBackslash
\
// TestDotDot
..
// TestDotDot
..
// TestDotDot
..
// TestDotDot
..
// TestAssign
:=
// TestAssign
:=
// TestAssign
:=
// TestAssign
:=
// TestAssignPlus
+=
// TestAssignPlus
+=
// TestAssignPlus
+=
// TestAssignPlus
+=
// TestAssignPlus
+=
// TestAssignMinus
-=
// TestAssignMinus
-=
// TestAssignMinus
-=
// TestAssignMinus
-=
// TestAssignMinus
-=
// TestAssignMul
*=
// TestAssignMul
*=
// TestAssignMul
*=
// TestAssignMul
*=
// TestAssignMul
*=
// TestAssignDivision
/=
// TestAssignDivision
/=
// TestAssignDivision
/=
// TestAssignDivision
/=
// TestAssignDivision
/=
// TestNotEqual
<>
// TestNotEqual
<>
// TestNotEqual
<>
// TestNotEqual
<>
// TestLessEqualThan
<=
// TestLessEqualThan
<=
// TestLessEqualThan
<=
// TestLessEqualThan
<=
// TestGreaterEqualThan
>=
// TestGreaterEqualThan
>=
// TestGreaterEqualThan
>=
// TestGreaterEqualThan
>=
// TestPower
**
// TestPower
**
// TestPower
**
// TestPower
**
// TestSymmetricalDifference
><
// TestSymmetricalDifference
><
// TestSymmetricalDifference
><
// TestSymmetricalDifference
><
// TestAbsolute
absolute
// TestAbsolute
Absolute
// TestAbsolute
ABSOLUTE
// TestAbsolute
absolute
// TestAnd
and
// TestAnd
And
// TestAnd
AND
// TestAnd
and
// TestArray
array
// TestArray
Array
// TestArray
ARRAY
// TestArray
array
// TestAs
as
// TestAs
As
// TestAs
AS
// TestAs
as
// TestAsm
asm
// TestAsm
Asm
// TestAsm
ASM
// TestAsm
asm
// TestBegin
begin
// TestBegin
Begin
// TestBegin
BEGIN
// TestBegin
begin
// TestBitpacked
bitpacked
// TestBitpacked
Bitpacked
// TestBitpacked
BITPACKED
// TestBitpacked
bitpacked
// TestCase
case
// TestCase
Case
// TestCase
CASE
// TestCase
case
// TestClass
class
// TestClass
Class
// TestClass
CLASS
// TestClass
class
// TestConst
const
// TestConst
Const
// TestConst
CONST
// TestConst
const
// TestConstructor
constructor
// TestConstructor
Constructor
// TestConstructor
CONSTRUCTOR
// TestConstructor
constructor
// TestDestructor
destructor
// TestDestructor
Destructor
// TestDestructor
DESTRUCTOR
// TestDestructor
destructor
// TestDispinterface
dispinterface
// TestDispinterface
Dispinterface
// TestDispinterface
DISPINTERFACE
// TestDispinterface
dispinterface
// TestDiv
div
// TestDiv
Div
// TestDiv
DIV
// TestDiv
div
// TestDo
do
// TestDo
Do
// TestDo
DO
// TestDo
do
// TestDownto
downto
// TestDownto
Downto
// TestDownto
DOWNTO
// TestDownto
downto
// TestElse
else
// TestElse
Else
// TestElse
ELSE
// TestElse
else
// TestEnd
end
// TestEnd
End
// TestEnd
END
// TestEnd
end
// TestExcept
except
// TestExcept
Except
// TestExcept
EXCEPT
// TestExcept
except
// TestExports
exports
// TestExports
Exports
// TestExports
EXPORTS
// TestExports
exports
// TestFalse
false
// TestFalse
False
// TestFalse
FALSE
// TestFalse
false
// TestFile
file
// TestFile
File
// TestFile
FILE
// TestFile
file
// TestFinalization
finalization
// TestFinalization
Finalization
// TestFinalization
FINALIZATION
// TestFinalization
finalization
// TestFinally
finally
// TestFinally
Finally
// TestFinally
FINALLY
// TestFinally
finally
// TestFor
for
// TestFor
For
// TestFor
FOR
// TestFor
for
// TestFunction
function
// TestFunction
Function
// TestFunction
FUNCTION
// TestFunction
function
// TestGeneric
generic
// TestGeneric
Generic
// TestGeneric
GENERIC
// TestGeneric
generic
// TestGoto
goto
// TestGoto
Goto
// TestGoto
GOTO
// TestGoto
goto
// TestHelper
helper
// TestHelper
Helper
// TestHelper
HELPER
// TestHelper
helper
// TestIf
if
// TestIf
If
// TestIf
IF
// TestIf
if
// TestImplementation
implementation
// TestImplementation
Implementation
// TestImplementation
IMPLEMENTATION
// TestImplementation
implementation
// TestIn
in
// TestIn
In
// TestIn
IN
// TestIn
in
// TestInherited
inherited
// TestInherited
Inherited
// TestInherited
INHERITED
// TestInherited
inherited
// TestInitialization
initialization
// TestInitialization
Initialization
// TestInitialization
INITIALIZATION
// TestInitialization
initialization
// TestInline
inline
// TestInline
Inline
// TestInline
INLINE
// TestInline
inline
// TestInterface
interface
// TestInterface
Interface
// TestInterface
INTERFACE
// TestInterface
interface
// TestIs
is
// TestIs
Is
// TestIs
IS
// TestIs
is
// TestLabel
label
// TestLabel
Label
// TestLabel
LABEL
// TestLabel
label
// TestLibrary
library
// TestLibrary
Library
// TestLibrary
LIBRARY
// TestLibrary
library
// TestMod
mod
// TestMod
Mod
// TestMod
MOD
// TestMod
mod
// TestNil
nil
// TestNil
Nil
// TestNil
NIL
// TestNil
nil
// TestNot
not
// TestNot
Not
// TestNot
NOT
// TestNot
not
// TestObject
object
// TestObject
Object
// TestObject
OBJECT
// TestObject
object
// TestOf
of
// TestOf
Of
// TestOf
OF
// TestOf
of
// TestOn
on
// TestOn
On
// TestOn
ON
// TestOn
on
// TestOperator
operator
// TestOperator
Operator
// TestOperator
OPERATOR
// TestOperator
operator
// TestOr
or
// TestOr
Or
// TestOr
OR
// TestOr
or
// TestPacked
packed
// TestPacked
Packed
// TestPacked
PACKED
// TestPacked
packed
// TestProcedure
procedure
// TestProcedure
Procedure
// TestProcedure
PROCEDURE
// TestProcedure
procedure
// TestProgram
program
// TestProgram
Program
// TestProgram
PROGRAM
// TestProgram
program
// TestProperty
property
// TestProperty
Property
// TestProperty
PROPERTY
// TestProperty
property
// TestRaise
raise
// TestRaise
Raise
// TestRaise
RAISE
// TestRaise
raise
// TestRecord
record
// TestRecord
Record
// TestRecord
RECORD
// TestRecord
record
// TestRepeat
repeat
// TestRepeat
Repeat
// TestRepeat
REPEAT
// TestRepeat
repeat
// TestResourceString
resourcestring
// TestResourceString
Resourcestring
// TestResourceString
RESOURCESTRING
// TestResourceString
resourcestring
// TestSet
set
// TestSet
Set
// TestSet
SET
// TestSet
set
// TestShl
shl
// TestShl
Shl
// TestShl
SHL
// TestShl
shl
// TestShr
shr
// TestShr
Shr
// TestShr
SHR
// TestShr
shr
// TestShlC
<<
// TestShlC
<<
// TestShlC
<<
// TestShlC
<<
// TestShrC
>>
// TestShrC
>>
// TestShrC
>>
// TestShrC
>>
// TestSpecialize
specialize
// TestSpecialize
Specialize
// TestSpecialize
SPECIALIZE
// TestSpecialize
specialize
// TestThen
then
// TestThen
Then
// TestThen
THEN
// TestThen
then
// TestThreadvar
threadvar
// TestThreadvar
Threadvar
// TestThreadvar
THREADVAR
// TestThreadvar
threadvar
// TestTo
to
// TestTo
To
// TestTo
TO
// TestTo
to
// TestTrue
true
// TestTrue
True
// TestTrue
TRUE
// TestTrue
true
// TestTry
try
// TestTry
Try
// TestTry
TRY
// TestTry
try
// TestType
type
// TestType
Type
// TestType
TYPE
// TestType
type
// TestUnit
unit
// TestUnit
Unit
// TestUnit
UNIT
// TestUnit
unit
// TestUntil
until
// TestUntil
Until
// TestUntil
UNTIL
// TestUntil
until
// TestUses
uses
// TestUses
Uses
// TestUses
USES
// TestUses
uses
// TestVar
var
// TestVar
Var
// TestVar
VAR
// TestVar
var
// TestWhile
while
// TestWhile
While
// TestWhile
WHILE
// TestWhile
while
// TestWith
with
// TestWith
With
// TestWith
WITH
// TestWith
with
// TestXor
xor
// TestXor
Xor
// TestXor
XOR
// TestXor
xor
// TestLineEnding


// TestLineEnding


// TestLineEnding


// TestLineEnding


// TestObjCClass
objcclass
// TestObjCClass
Objcclass
// TestObjCClass
OBJCCLASS
// TestObjCClass
objcclass
// TestObjCClass2
{$mode fpc} objcclass
// TestObjCProtocol
objcprotocol
// TestObjCProtocol
Objcprotocol
// TestObjCProtocol
OBJCPROTOCOL
// TestObjCProtocol
objcprotocol
// TestObjCProtocol2
{$mode fpc} objcprotocol
// TestObjCCategory
objccategory
// TestObjCCategory
Objccategory
// TestObjCCategory
OBJCCATEGORY
// TestObjCCategory
objccategory
// TestObjCCategory2
{$mode fpc} objccategory
// TestTab
	
// TestTab
	
// TestTab
	
// TestTab
	
// TestEscapedKeyWord
&xor
// TestEscapedKeyWord
&xor
// TestEscapedKeyWord
&XOR
// TestEscapedKeyWord
&xor
// TestTokenSeries
in of then aninteger
// TestTokenSeriesNoWhiteSpace
in of then aninteger
// TestTokenSeriesComments
in of {then} aninteger
// TestTokenSeriesNoComments
in of {then} aninteger
// TestDefine0
{$DEFINE NEVER}
// TestDefine0Spaces
{$DEFINE  NEVER}
// TestDefine0Spaces2
{$DEFINE NEVER }
// TestDefine01
(*$DEFINE NEVER*)
// TestDefine1
{$IFDEF NEVER} of {$ENDIF}
// TestDefine2
{$IFDEF ALWAYS comment} of {$ENDIF}
// TestDefine21
(*$IFDEF ALWAYS*) of (*$ENDIF*)
// TestDefine22
(*$IFDEF ALWAYS*)of (*$ENDIF*)
// TestDefine3
{$IFDEF ALWAYS} of {$ELSE} in {$ENDIF}
// TestDefine4
{$IFDEF ALWAYS} of {$ELSE} in {$ENDIF}
// TestDefine5
{$IFDEF NEVER} of {$ENDIF}
// TestDefine6
{$IFDEF ALWAYS} of {$ENDIF}
// TestDefine7
{$IFDEF ALWAYS} of {$ELSE} in {$ENDIF}
// TestDefine8
{$IFDEF ALWAYS} of {$ELSE} in {$ENDIF}
// TestDefine9
{$IFDEF NEVER} of {$ENDIF}
// TestDefine10
{$IFDEF ALWAYS} of {$ENDIF}
// TestDefine11
{$IFDEF ALWAYS} of {$ELSE} in {$ENDIF}
// TestDefine12
{$IFDEF ALWAYS} of {$ELSE} in {$ENDIF}
// TestDefine13
{$IFDEF ALWAYS} }; ą è {$ELSE} in {$ENDIF}
// TestDefine14
{$ifdef NEVER_DEFINED}
type
  TNPEventModel = (
  NPEventModelCarbon = 0,
  NPEventModelCocoa = 1
}; // yes, this is an error... except this code should never be included.
ą
|
{$endif}

begin
end.

// TestInclude
{$I myinclude.inc}
// TestInclude2
{$I myinclude.inc} else
// TestInclude3
{$I src/myinclude1.inc} else
// TestIncludeString
{$INCLUDESTRING myinclude.inc}
// TestIncludeStringFile
{$INCLUDESTRINGFILE myinclude.inc}
// TestIncludeString2Lines
{$INCLUDESTRING myinclude.inc}
// TestUnDefine1
{$UNDEF ALWAYS}
// TestMacro1
{$MACRO on}{$DEFINE MM:=begin end.}
MM
// TestMacro2
{$MACRO on}{$DEFINE MM:=begin end}
MM .
// TestMacro3
{$MACRO on}{$DEFINE MM:=begin end}
{$IFDEF MM} of {$ELSE} in {$ENDIF}
// TestMacroHandling
{$MACRO on}{$DEFINE MM:=begin end}
MM
// TestIFDefined
{$DEFINE A}{$IF defined(A)}begin{$ENDIF}end.
// TestIFUnDefined
{$IF undefined(A)}begin{$ENDIF}end.
// TestIFAnd
{$DEFINE A}{$IF defined(A) and undefined(B)}begin{$ENDIF}end.
// TestIFAndShortEval
{$UNDEFINE A}{$IF defined(A) and undefined(B)}wrong{$ELSE}begin{$ENDIF}end.
// TestIFOr
{$DEFINE B}{$IF defined(A) or defined(B)}begin{$ENDIF}end.
// TestIFOrShortEval
{$DEFINE A}{$IF defined(A) or defined(B)}begin{$ENDIF}end.
// TestIFXor
{$DEFINE B}{$IF defined(A) xor defined(B)}begin{$ENDIF}end.
// TestIFAndOr
{$IF   defined(A) and   defined(B) or   defined(C)}wrong1{$ENDIF}
{$IF   defined(A) and   defined(B) or undefined(C)}{$ELSE}wrong2{$ENDIF}
{$IF   defined(A) and undefined(B) or   defined(C)}wrong3{$ENDIF}
{$IF   defined(A) and undefined(B) or undefined(C)}{$ELSE}wrong4{$ENDIF}
{$IF undefined(A) and   defined(B) or   defined(C)}wrong5{$ENDIF}
{$IF undefined(A) and   defined(B) or undefined(C)}{$ELSE}wrong6{$ENDIF}
{$IF undefined(A) and undefined(B) or   defined(C)}{$ELSE}wrong7{$ENDIF}
{$IF undefined(A) and undefined(B) or undefined(C)}begin{$ENDIF}end.
// TestIFEqual
{$IF Version=30101}begin{$ENDIF}end.
// TestIFNotEqual
{$IF Version<>30000}begin{$ENDIF}end.
// TestIFGreaterThan
{$IF Version>30000}begin{$ENDIF}end.
// TestIFGreaterEqualThan
{$IF Version>=30000}begin{$ENDIF}end.
// TestIFLesserThan
{$IF Version<40000}begin{$ENDIF}end.
// TestIFLesserEqualThan
{$IF Version<=30101}begin{$ENDIF}end.
// TestIFDefinedElseIf
const platform = 
{$if defined(cpu32)} 'x86'
{$elseif defined(cpu64)} 'x64'
{$else} {$error unknown platform} {$endif};
begin end.
// TestIfError
program Project1;
begin
{$if sizeof(integer) <> 4} {$error wrong sizeof(integer)} {$endif}
end.
// TestIFCDefined
const platform = 
{$ifc defined cpu32} 'x86'
{$elseif defined(cpu64)} 1 
{$else} {$error unknown platform} {$endc};
begin end.
// TestIFCNotDefined
const platform = 
{$ifc not defined cpu32} 'x86'
{$else} 1 
{$endc};
begin end.
// TestIFCAndDefined
const platform = 
{$ifc defined cpu32 and defined alpha} 'x86'
{$else} 1 
{$endc};
begin end.
// TestIFCFalse
const platform = 
{$IFC MY} 'x86'
{$else} 1 
{$endc};
begin end.
// TestModeSwitch
{$MODESWITCH CLASS }
// TestModeSwitch
{$MODESWITCH CLASS+}
// TestModeSwitch
{$MODESWITCH CLASS-}
// TestModeSwitch
{$MODESWITCH OBJPAS }
// TestModeSwitch
{$MODESWITCH OBJPAS+}
// TestModeSwitch
{$MODESWITCH OBJPAS-}
// TestModeSwitch
{$MODESWITCH RESULT }
// TestModeSwitch
{$MODESWITCH RESULT+}
// TestModeSwitch
{$MODESWITCH RESULT-}
// TestModeSwitch
{$MODESWITCH PCHARTOSTRING }
// TestModeSwitch
{$MODESWITCH PCHARTOSTRING+}
// TestModeSwitch
{$MODESWITCH PCHARTOSTRING-}
// TestModeSwitch
{$MODESWITCH CVAR }
// TestModeSwitch
{$MODESWITCH CVAR+}
// TestModeSwitch
{$MODESWITCH CVAR-}
// TestModeSwitch
{$MODESWITCH NESTEDCOMMENTS }
// TestModeSwitch
{$MODESWITCH NESTEDCOMMENTS+}
// TestModeSwitch
{$MODESWITCH NESTEDCOMMENTS-}
// TestModeSwitch
{$MODESWITCH CLASSICPROCVARS }
// TestModeSwitch
{$MODESWITCH CLASSICPROCVARS+}
// TestModeSwitch
{$MODESWITCH CLASSICPROCVARS-}
// TestModeSwitch
{$MODESWITCH MACPROCVARS }
// TestModeSwitch
{$MODESWITCH MACPROCVARS+}
// TestModeSwitch
{$MODESWITCH MACPROCVARS-}
// TestModeSwitch
{$MODESWITCH REPEATFORWARD }
// TestModeSwitch
{$MODESWITCH REPEATFORWARD+}
// TestModeSwitch
{$MODESWITCH REPEATFORWARD-}
// TestModeSwitch
{$MODESWITCH POINTERTOPROCVAR }
// TestModeSwitch
{$MODESWITCH POINTERTOPROCVAR+}
// TestModeSwitch
{$MODESWITCH POINTERTOPROCVAR-}
// TestModeSwitch
{$MODESWITCH AUTODEREF }
// TestModeSwitch
{$MODESWITCH AUTODEREF+}
// TestModeSwitch
{$MODESWITCH AUTODEREF-}
// TestModeSwitch
{$MODESWITCH INITFINAL }
// TestModeSwitch
{$MODESWITCH INITFINAL+}
// TestModeSwitch
{$MODESWITCH INITFINAL-}
// TestModeSwitch
{$MODESWITCH ANSISTRINGS }
// TestModeSwitch
{$MODESWITCH ANSISTRINGS+}
// TestModeSwitch
{$MODESWITCH ANSISTRINGS-}
// TestModeSwitch
{$MODESWITCH OUT }
// TestModeSwitch
{$MODESWITCH OUT+}
// TestModeSwitch
{$MODESWITCH OUT-}
// TestModeSwitch
{$MODESWITCH DEFAULTPARAMETERS }
// TestModeSwitch
{$MODESWITCH DEFAULTPARAMETERS+}
// TestModeSwitch
{$MODESWITCH DEFAULTPARAMETERS-}
// TestModeSwitch
{$MODESWITCH HINTDIRECTIVE }
// TestModeSwitch
{$MODESWITCH HINTDIRECTIVE+}
// TestModeSwitch
{$MODESWITCH HINTDIRECTIVE-}
// TestModeSwitch
{$MODESWITCH DUPLICATELOCALS }
// TestModeSwitch
{$MODESWITCH DUPLICATELOCALS+}
// TestModeSwitch
{$MODESWITCH DUPLICATELOCALS-}
// TestModeSwitch
{$MODESWITCH PROPERTIES }
// TestModeSwitch
{$MODESWITCH PROPERTIES+}
// TestModeSwitch
{$MODESWITCH PROPERTIES-}
// TestModeSwitch
{$MODESWITCH ALLOWINLINE }
// TestModeSwitch
{$MODESWITCH ALLOWINLINE+}
// TestModeSwitch
{$MODESWITCH ALLOWINLINE-}
// TestModeSwitch
{$MODESWITCH EXCEPTIONS }
// TestModeSwitch
{$MODESWITCH EXCEPTIONS+}
// TestModeSwitch
{$MODESWITCH EXCEPTIONS-}
// TestModeSwitch
{$MODESWITCH OBJECTIVEC1 }
// TestModeSwitch
{$MODESWITCH OBJECTIVEC1+}
// TestModeSwitch
{$MODESWITCH OBJECTIVEC1-}
// TestModeSwitch
{$MODESWITCH OBJECTIVEC2 }
// TestModeSwitch
{$MODESWITCH OBJECTIVEC2+}
// TestModeSwitch
{$MODESWITCH OBJECTIVEC2-}
// TestModeSwitch
{$MODESWITCH NESTEDPROCVARS }
// TestModeSwitch
{$MODESWITCH NESTEDPROCVARS+}
// TestModeSwitch
{$MODESWITCH NESTEDPROCVARS-}
// TestModeSwitch
{$MODESWITCH NONLOCALGOTO }
// TestModeSwitch
{$MODESWITCH NONLOCALGOTO+}
// TestModeSwitch
{$MODESWITCH NONLOCALGOTO-}
// TestModeSwitch
{$MODESWITCH ADVANCEDRECORDS }
// TestModeSwitch
{$MODESWITCH ADVANCEDRECORDS+}
// TestModeSwitch
{$MODESWITCH ADVANCEDRECORDS-}
// TestModeSwitch
{$MODESWITCH ISOUNARYMINUS }
// TestModeSwitch
{$MODESWITCH ISOUNARYMINUS+}
// TestModeSwitch
{$MODESWITCH ISOUNARYMINUS-}
// TestModeSwitch
{$MODESWITCH SYSTEMCODEPAGE }
// TestModeSwitch
{$MODESWITCH SYSTEMCODEPAGE+}
// TestModeSwitch
{$MODESWITCH SYSTEMCODEPAGE-}
// TestModeSwitch
{$MODESWITCH FINALFIELDS }
// TestModeSwitch
{$MODESWITCH FINALFIELDS+}
// TestModeSwitch
{$MODESWITCH FINALFIELDS-}
// TestModeSwitch
{$MODESWITCH UNICODESTRINGS }
// TestModeSwitch
{$MODESWITCH UNICODESTRINGS+}
// TestModeSwitch
{$MODESWITCH UNICODESTRINGS-}
// TestModeSwitch
{$MODESWITCH TYPEHELPERS }
// TestModeSwitch
{$MODESWITCH TYPEHELPERS+}
// TestModeSwitch
{$MODESWITCH TYPEHELPERS-}
// TestModeSwitch
{$MODESWITCH CBLOCKS }
// TestModeSwitch
{$MODESWITCH CBLOCKS+}
// TestModeSwitch
{$MODESWITCH CBLOCKS-}
// TestModeSwitch
{$MODESWITCH ISOIO }
// TestModeSwitch
{$MODESWITCH ISOIO+}
// TestModeSwitch
{$MODESWITCH ISOIO-}
// TestModeSwitch
{$MODESWITCH ISOPROGRAMPARAS }
// TestModeSwitch
{$MODESWITCH ISOPROGRAMPARAS+}
// TestModeSwitch
{$MODESWITCH ISOPROGRAMPARAS-}
// TestModeSwitch
{$MODESWITCH ISOMOD }
// TestModeSwitch
{$MODESWITCH ISOMOD+}
// TestModeSwitch
{$MODESWITCH ISOMOD-}
// TestModeSwitch
{$MODESWITCH ARRAYOPERATORS }
// TestModeSwitch
{$MODESWITCH ARRAYOPERATORS+}
// TestModeSwitch
{$MODESWITCH ARRAYOPERATORS-}
// TestModeSwitch
{$MODESWITCH EXTERNALCLASS }
// TestModeSwitch
{$MODESWITCH EXTERNALCLASS+}
// TestModeSwitch
{$MODESWITCH EXTERNALCLASS-}
// TestModeSwitch
{$MODESWITCH PREFIXEDATTRIBUTES }
// TestModeSwitch
{$MODESWITCH PREFIXEDATTRIBUTES+}
// TestModeSwitch
{$MODESWITCH PREFIXEDATTRIBUTES-}
// TestModeSwitch
{$MODESWITCH OMITRTTI }
// TestModeSwitch
{$MODESWITCH OMITRTTI+}
// TestModeSwitch
{$MODESWITCH OMITRTTI-}
// TestModeSwitch
{$MODESWITCH MULTIHELPERS }
// TestModeSwitch
{$MODESWITCH MULTIHELPERS+}
// TestModeSwitch
{$MODESWITCH MULTIHELPERS-}
// TestModeSwitch
{$MODESWITCH IMPLICITFUNCTIONSPECIALIZATION }
// TestModeSwitch
{$MODESWITCH IMPLICITFUNCTIONSPECIALIZATION+}
// TestModeSwitch
{$MODESWITCH IMPLICITFUNCTIONSPECIALIZATION-}
// TestModeSwitch
{$MODESWITCH MULTILINESTRINGS }
// TestModeSwitch
{$MODESWITCH MULTILINESTRINGS+}
// TestModeSwitch
{$MODESWITCH MULTILINESTRINGS-}
// TestOperatorIdentifier
operator
// TestOperatorIdentifier
Operator
// TestOperatorIdentifier
OPERATOR
// TestOperatorIdentifier
operator
// TestUTF8BOM

// TestBooleanSwitch
{$HINTS OFF }
// Test : TestAliasType
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = othertype;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestAbsoluteAliasType
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   Absolute = Integer;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestCrossUnitAliasType
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = otherunit.othertype;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestAliasTypeDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = othertype deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestAliasTypePlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = othertype platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeByte
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = BYTE;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeByteComment
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6: // A comment
   7:   A = BYTE;
   8: 
   9: Implementation
  10: 
  11: end.
// Test : TestSimpleTypeByteDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = BYTE deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeBytePlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = BYTE platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeBoolean
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = BOOLEAN;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeBooleanDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = BOOLEAN deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeBooleanPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = BOOLEAN platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeChar
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = CHAR;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeCharDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = CHAR deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeCharPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = CHAR platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeInteger
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = INTEGER;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeIntegerDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = INTEGER deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeIntegerPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = INTEGER platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeInt64
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = INT64;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeInt64Deprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = INT64 deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeInt64Platform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = INT64 platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeLongInt
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = LONGINT;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeLongIntDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = LONGINT deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeLongIntPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = LONGINT platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeLongWord
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = LONGWORD;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeLongWordDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = LONGWORD deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeLongWordPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = LONGWORD platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeDouble
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Double;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeDoubleDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Double deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeDoublePlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Double platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeShortInt
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = SHORTINT;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeShortIntDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = SHORTINT deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeShortIntPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = SHORTINT platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeSmallInt
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = SMALLINT;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeSmallIntDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = SMALLINT deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeSmallIntPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = SMALLINT platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeString
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = STRING;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeStringDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = STRING deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeStringPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = STRING platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeStringSize
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = String[10];
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeStringSizeIncomplete
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = string[10;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeStringSizeWrong
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = string[10);
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeStringSizeDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = String[10] deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeStringSizePlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = String[10] Platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeWord
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = WORD;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeWordDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = WORD deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeWordPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = WORD platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeQWord
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = QWORD;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeQWordDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = QWORD deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeQWordPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = QWORD platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeCardinal
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = CARDINAL;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeCardinalDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = CARDINAL deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeCardinalPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = CARDINAL platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeWideChar
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = WIDECHAR;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeWideCharDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = WIDECHAR deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleTypeWideCharPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = WIDECHAR platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestPointerSimple
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = ^integer;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestPointerSimpleDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = ^integer deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestPointerSimplePlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = ^integer platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestStaticArray
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = array [0..2] of integer;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestStaticArrayComment
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6: // A comment
   7:   A = array [0..2] of integer;
   8: 
   9: Implementation
  10: 
  11: end.
// Test : TestStaticArrayDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = array [0..2] of integer deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestStaticArrayPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = array [0..2] of integer platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestStaticArrayPacked
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = packed array [0..2] of integer;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestStaticArrayTypedIndex
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = array [Boolean] of integer;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestStaticArrayOfMethod
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = array[0..127] of procedure of object;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestStaticArrayOfProcedure
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = array[0..127] of procedure;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestDynamicArray
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = array of integer;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestDynamicArrayComment
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6: // A comment
   7:   A = array of integer;
   8: 
   9: Implementation
  10: 
  11: end.
// Test : TestDynamicArrayOfMethod
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = array of procedure of object;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestDynamicArrayOfProcedure
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = array of procedure ;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestGenericArray
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6: generic TArray = array of T;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleEnumerated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = (one,two,three);
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleEnumeratedComment
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6: // A comment
   7:   A = (one,two,three);
   8: 
   9: Implementation
  10: 
  11: end.
// Test : TestSimpleEnumeratedComment2
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6: // A comment
   7:   A = ( {a} one, {b} two, {c} three);
   8: 
   9: Implementation
  10: 
  11: end.
// Test : TestSimpleEnumeratedDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = (one,two,three) deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleEnumeratedPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = (one,two,three) platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestAssignedEnumerated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = (one,two:=2,three);
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestAssignedEnumeratedDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = (one,two:=2,three);
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestAssignedEnumeratedPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = (one,two:=2,three);
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestFileType
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = File of integer;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestFileTypeDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = File of integer deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestFileTypePlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = File of integer platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestRangeType
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = 1..4;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestCharRangeType
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = #1..#4;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestCharRangeType2
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = 'A'..'B';
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestRangeTypeDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = 1..4 deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestRangeTypePlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = 1..4 platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestIdentifierRangeType
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = tkFirst..tkLast;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestIdentifierRangeTypeDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = tkFirst..tkLast deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestIdentifierRangeTypePlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = tkFirst..tkLast platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestNegativeIdentifierRangeType
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = -tkLast..tkLast;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleSet
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Set of Byte;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestPackedSet
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Packed Set of Byte;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleSetDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Set of Byte deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSimpleSetPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Set of Byte platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestComplexSet
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Set of (one, two, three);
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestComplexSetDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Set of (one, two, three) deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestComplexSetPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Set of (one, two, three) platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestRangeLowHigh
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Set of low(TRange)..high(TRange);
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestRangeSet
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Set of rMiddle..high(TRange);
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestSubRangeSet
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Set of 0..SizeOf(Integer)*8-1;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestRangeSetDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Set of 0..SizeOf(Integer)*8-1 deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestRangeSetPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Set of 0..SizeOf(Integer)*8-1 platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestNegativeRangeType
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = 2-1..3;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestClassOf
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Class of TSomeClass;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestClassOfComment
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6: // A comment
   7:   A = Class of TSomeClass;
   8: 
   9: Implementation
  10: 
  11: end.
// Test : TestClassOfDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Class of TSomeClass deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestClassOfPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Class of TSomeClass Platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestReferenceAlias
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:  Type1 = Integer;
   7:  Type2 = Type1;
   8: end.
   9: 
  10: Implementation
  11: 
  12: end.
// Test : TestReferenceSet
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:  Type1 = (a,b,c);
   7:  Type2 = set of Type1;
   8: end.
   9: 
  10: Implementation
  11: 
  12: end.
// Test : TestReferenceClassOf
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:  Type1 = Class(TObject);
   7:  Type2 = Class of Type1;
   8: end.
   9: 
  10: Implementation
  11: 
  12: end.
// Test : TestReferenceFile
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:  Type1 = (a,b,c);
   7:  Type2 = File of Type1;
   8: end.
   9: 
  10: Implementation
  11: 
  12: end.
// Test : TestReferenceArray
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:  Type1 = (a,b,c);
   7:  Type2 = Array of Type1;
   8: end.
   9: 
  10: Implementation
  11: 
  12: end.
// Test : TestReferencePointer
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:  Type1 = (a,b,c);
   7:  Type2 = ^Type1;
   8: end.
   9: 
  10: Implementation
  11: 
  12: end.
// Test : TestInvalidColon
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = :1..2;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTypeHelper
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Type Helper for AnsiString end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTypeHelperWithParent
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   A = Type Helper(TOtherHelper) for AnsiString end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestPointerReference
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   pReference = ^Reference;
   7:   Reference = object
   8:   end;
   9: 
  10: Implementation
  11: 
  12: end.
// Test : TestPointerKeyWord
   1: unit afile;
   2: 
   3: interface
   4: 
   5: type
   6:   &file = object
   7:   end;
   8: 
   9: Implementation
  10: 
  11: end.
// Test : TestPointerFile
   1: unit afile;
   2: 
   3: interface
   4: 
   5: type
   6:   pfile = ^file;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestEmpty
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestEmptyComment
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6: // A comment
   7:   TMyRecord = record
  end;
   8: 
   9: Implementation
  10: 
  11: end.
// Test : TestEmptyDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
  end Deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestEmptyPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
  end Platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestOneField
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestOneFieldComment
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6: // A comment
   7:   TMyRecord = record
    {a} x : integer
  end;
   8: 
   9: Implementation
  10: 
  11: end.
// Test : TestOneFieldDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer
  end deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestOneFieldPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer
  end platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestOneFieldSemicolon
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer;
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestOneFieldSemicolonDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer;
  end deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestOneFieldSemicolonPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer;
  end platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestOneDeprecatedField
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer deprecated;
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestOneDeprecatedFieldDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer deprecated;
  end deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestOneDeprecatedFieldPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer deprecated;
  end platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestOnePlatformField
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer platform;
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestOnePlatformFieldDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer platform;
  end Deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestOnePlatformFieldPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer platform;
  end Platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestOneGenericField
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    Generic : Integer;
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFields
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer;
    y : integer
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldProtected
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    protected
    x : integer
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldStrictPrivate
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    strict private
    x,y : integer
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldPrivateNoDelphi
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    private
    x : integer
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldPrivate
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    private
    x,y : integer
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer;
    y : integer
  end deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer;
    y : integer
  end platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldsFirstDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer deprecated;
    y : integer
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldsFirstDeprecatedDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer deprecated;
    y : integer
  end deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldsFirstDeprecatedPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer deprecated;
    y : integer
  end platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldsSecondDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer;
    y : integer deprecated;
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldsSecondDeprecatedDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer;
    y : integer deprecated;
  end deprecated;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldsSecondDeprecatedPlatform
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer;
    y : integer deprecated;
  end platform;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldsBothDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer deprecated;
    y : integer deprecated;
  end;
   7: 
   8: Implementation
   9: 
  10: end.
// Test : TestTwoFieldsBothDeprecatedDeprecated
   1: unit afile;
   2: 
   3: interface
   4: 
   5: Type
   6:   TMyRecord = record
    x : integer deprecated;

No Source in TestSuite DataBase.

Link to SVN view of ../packages/fcl-passrc/tests/testpassrc.pp source.