t_id
6287
t_adddate
2021/08/18 08:34:07
t_result
0
t_knownrunerror
0
t_opts
-Sc
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
443687502 | 934971 | False | False | Failed to run |
Record count: 1
// 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.