[Bug modula2/123151] Unable to use IsNoError with Close in FIO library module

[gaius at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=123151

Gaius Mulley <gaius at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |ASSIGNED
     Ever confirmed|0                           |1
   Last reconfirmed|                            |2025-12-17

--- Comment #1 from Gaius Mulley <gaius at gcc dot gnu.org> ---
Confirmed.  For example:

MODULE testclose ;

IMPORT FIO ;
IMPORT libc ;


(*
   assert -
*)

PROCEDURE assert (condition: BOOLEAN; line: CARDINAL) ;
BEGIN
   IF NOT condition
   THEN
      libc.printf ("%s:%d:assert failed\n", __FILE__, line) ;
      libc.exit (1)
   END
END assert ;


(*
   Init -
*)

PROCEDURE Init ;
VAR
   f: FIO.File ;
BEGIN
   f := FIO.OpenToWrite ('testclose.txt') ;
   assert (FIO.IsNoError (f), __LINE__) ;
   FIO.WriteString (f, 'hello') ;
   assert (FIO.IsNoError (f), __LINE__) ;
   FIO.WriteLine (f) ;
   assert (FIO.IsNoError (f), __LINE__) ;
   FIO.Close (f) ;
   assert (FIO.IsNoError (f), __LINE__) ;
END Init ;


BEGIN
   Init
END testclose.

will runtime error on the last IsNoError test.