fix #2362

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "7";
 	public const string Build = "1";
-	public const string Revision = "2766";
+	public const string Revision = "2767";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%COREVERSION%=1
-%REVISION%=2766
 %MINOR%=7
+%REVISION%=2767
+%COREVERSION%=1
 %MAJOR%=3

Release/pabcversion.txt

@@ -1 +1 @@
-3.7.1.2766
+3.7.1.2767

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.7.1.2766'
+!define VERSION '3.7.1.2767'

TestSuite/CompilationSamples/School.pas

@@ -38,6 +38,9 @@ function MinMax(s: sequence of int64): (int64, int64);
 /// Возвращает кортеж из минимума и максимума последовательности s
 function MinMax(s: sequence of integer): (integer, integer);
 
+/// Возвращает кортеж из минимума и максимума последовательности s
+function MinMax(s: sequence of real): (real, real);
+
 /// Возвращает НОД
 function НОД(a, b: int64): int64;
 
@@ -276,10 +279,12 @@ function MinMax(s: sequence of int64): (int64, int64);
 begin
   var (min, max) := (int64.MaxValue, int64.MinValue);
   foreach var m in s do
+  begin  
     if m < min then
-      min := m
-    else if m > max then
-      max := m;
+      min := m;
+    if m > max then
+      max := m
+  end;  
   Result := (min, max)
 end;
 
@@ -288,10 +293,26 @@ function MinMax(s: sequence of integer): (integer, integer);
 begin
   var (min, max) := (integer.MaxValue, integer.MinValue);
   foreach var m in s do
+  begin  
     if m < min then
-      min := m
-    else if m > max then
-      max := m;
+      min := m;
+    if m > max then
+      max := m
+  end;  
+  Result := (min, max)
+end;
+
+/// Возвращает кортеж из минимума и максимума последовательности s
+function MinMax(s: sequence of real): (real, real);
+begin
+  var (min, max) := (real.MaxValue, -real.MaxValue);
+  foreach var m in s do
+  begin  
+    if m < min then
+      min := m;
+    if m > max then
+      max := m
+  end;  
   Result := (min, max)
 end;
 
@@ -302,7 +323,11 @@ MinMax(Self);
 /// Возвращает кортеж из минимума и максимума последовательности
 function MinMax(Self: sequence of integer): (integer, integer);
     extensionmethod :=
-MinMax(Self);  
+MinMax(Self);
+
+/// Возвращает кортеж из минимума и максимума последовательности
+function MinMax(Self: sequence of real): (real, real); extensionmethod :=
+MinMax(Self);
 
 {$endregion}
 

bin/Lib/School.pas

@@ -38,6 +38,9 @@ function MinMax(s: sequence of int64): (int64, int64);
 /// Возвращает кортеж из минимума и максимума последовательности s
 function MinMax(s: sequence of integer): (integer, integer);
 
+/// Возвращает кортеж из минимума и максимума последовательности s
+function MinMax(s: sequence of real): (real, real);
+
 /// Возвращает НОД
 function НОД(a, b: int64): int64;
 
@@ -276,10 +279,12 @@ function MinMax(s: sequence of int64): (int64, int64);
 begin
   var (min, max) := (int64.MaxValue, int64.MinValue);
   foreach var m in s do
+  begin  
     if m < min then
-      min := m
-    else if m > max then
-      max := m;
+      min := m;
+    if m > max then
+      max := m
+  end;  
   Result := (min, max)
 end;
 
@@ -288,10 +293,26 @@ function MinMax(s: sequence of integer): (integer, integer);
 begin
   var (min, max) := (integer.MaxValue, integer.MinValue);
   foreach var m in s do
+  begin  
     if m < min then
-      min := m
-    else if m > max then
-      max := m;
+      min := m;
+    if m > max then
+      max := m
+  end;  
+  Result := (min, max)
+end;
+
+/// Возвращает кортеж из минимума и максимума последовательности s
+function MinMax(s: sequence of real): (real, real);
+begin
+  var (min, max) := (real.MaxValue, -real.MaxValue);
+  foreach var m in s do
+  begin  
+    if m < min then
+      min := m;
+    if m > max then
+      max := m
+  end;  
   Result := (min, max)
 end;
 
@@ -302,7 +323,11 @@ MinMax(Self);
 /// Возвращает кортеж из минимума и максимума последовательности
 function MinMax(Self: sequence of integer): (integer, integer);
     extensionmethod :=
-MinMax(Self);  
+MinMax(Self);
+
+/// Возвращает кортеж из минимума и максимума последовательности
+function MinMax(Self: sequence of real): (real, real); extensionmethod :=
+MinMax(Self);
 
 {$endregion}