fix #3342

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "11";
 	public const string Build = "0";
-	public const string Revision = "3665";
+	public const string Revision = "3666";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%MINOR%=11
-%REVISION%=3665
 %COREVERSION%=0
+%REVISION%=3666
+%MINOR%=11
 %MAJOR%=3

Parsers/PascalABCParserNewSaushkin/ABCPascal.cs

@@ -1,9 +1,9 @@
 //
 //  This CSharp output file generated by Gardens Point LEX
 //  Version:  1.1.3.301
-//  Machine:  LAPTOP-TE3HP881
-//  DateTime: 04.01.2025 22:10:06
-//  UserName: miks
+//  Machine:  DESKTOP-L2INHKG
+//  DateTime: 07.10.2025 10:49:02
+//  UserName: user
 //  GPLEX input file <ABCPascal.lex>
 //  GPLEX frame file <embedded resource>
 //

Parsers/PascalABCParserNewSaushkin/ABCPascal.y

@@ -820,7 +820,10 @@ const_relop_expr
 		}
     | const_relop_expr const_relop const_simple_expr   
         { 
-			$$ = new bin_expr($1, $3, $2.type, @$); 
+        	if ($2.type == Operators.NotIn)
+        		$$ = new un_expr(new bin_expr($1, $3, Operators.In, @$),Operators.LogicalNOT,@$);
+        	else	
+				$$ = new bin_expr($1, $3, $2.type, @$); 
 		}
 	;
 
@@ -857,6 +860,16 @@ const_relop
 		{ $$ = $1; }
     | tkIn
 		{ $$ = $1; }
+    | tkNot tkIn
+		{ 
+			if (parserTools.buildTreeForFormatter)
+				$$ = $2;
+			else
+			{
+				$$ = $2;	
+				$$.type = Operators.NotIn;
+			}				
+		}
     ;
 
 const_simple_expr

Parsers/PascalABCParserNewSaushkin/PABC.ymc

@@ -4,6 +4,7 @@ lexGen=D:\PABC_GIT\pascalabcnet\Parsers\PascalABCParserNewSaushkin\GPLex_GPPG\Gp
 yaccGen=D:\PABC_GIT\pascalabcnet\Parsers\PascalABCParserNewSaushkin\GPLex_GPPG\gppg.exe
 lexGenOpt=/unicode
 yaccGenOpt=/gplex
+useCustomScript
 script=
 "D:\PABC_GIT\pascalabcnet\Parsers\PascalABCParserNewSaushkin\GPLex_GPPG\gplex.exe" /unicode "D:\PABC_Git\Parsers\PascalABCParserNewSaushkin\ABCPascal.lex"
 
@@ -391,6 +392,8 @@ script=
 
 
 
+
+
 
 
 

Release/pabcversion.txt

@@ -1 +1 @@
-3.11.0.3665
+3.11.0.3666

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.11.0.3665'
+!define VERSION '3.11.0.3666'

TestSuite/not_in_in_var_with_type.pas

@@ -0,0 +1,5 @@
+begin
+  var a := [1,2,3];
+  var x: boolean := (5 not in a) and (4 not in a);
+  Print(x);
+end.