* accept #26 as eof in iso mode, resolves #35136

git-svn-id: trunk@43801 -

.gitattributes

@@ -17838,6 +17838,7 @@ tests/webtbs/tw35027.pp svneol=native#text/pascal
 tests/webtbs/tw35028.pp svneol=native#text/pascal
 tests/webtbs/tw3504.pp svneol=native#text/plain
 tests/webtbs/tw3506.pp svneol=native#text/plain
+tests/webtbs/tw35136.pp svneol=native#text/pascal
 tests/webtbs/tw35139.pp svneol=native#text/plain
 tests/webtbs/tw35139a.pp svneol=native#text/plain
 tests/webtbs/tw35149.pp svneol=native#text/plain

rtl/inc/iso7185.pp

@@ -144,7 +144,7 @@ unit iso7185;
         else
           begin
             OldCtrlZMarksEof:=CtrlZMarksEOF;
-            CtrlZMarksEof:=false;
+            CtrlZMarksEof:=true;
             Eof:=System.Eof(t);
             CtrlZMarksEof:=OldCtrlZMarksEOF;
           end;

tests/webtbs/tw35136.pp

@@ -0,0 +1,16 @@
+{ %opt=-Miso }
+program p;
+var f: text;
+begin
+    rewrite(f);
+    f^ := 'a';
+    put(f);
+    reset(f);
+    if eof(f) then writeln('premature eof');
+    writeln(f^);
+    if eof(f) then writeln('premature eof');
+    writeln(f^);
+    if eof(f) then writeln('premature eof');
+    get(f);
+    if eof(f) then writeln('eof correctly set') else begin writeln('eof should be set, but isn''t'); halt(1); end;
+end.