Re: [Gm2] gm2 and IO

[Gaius Mulley]

Steve Giess <address@hidden> writes:

> Dear Gaius,
>
> I've built the 23rd April, 4.7.4 on i686 running Fedora 17. I've
> attached the test results summary.
>
> gm2 ran my own programmes successfully - apart from the 'mixed' IO
> test and also the 'ISO only' cut down version of io10.mod which I sent
> to you a day or so ago. These last two still hung on the last Write
> stage.
>
> Regards,
>
> Steve


Hi Steve,

many thanks for the report - I've added two calls to SkipLine which are
necessary to move the stream beyond the newline in the ISO libraries.

All works now I believe:

MODULE io10;
 IMPORT StrIO;
 IMPORT FpuIO;
 IMPORT SLongIO;
 IMPORT SRealIO;
 IMPORT STextIO ;  (* ********** *)
   VAR
   templ : LONGREAL;
   temp : REAL; 

BEGIN

        StrIO.WriteLn; FpuIO.ReadLongReal(templ); StrIO.WriteLn;
        StrIO.WriteString('LongReal Fpu is '); StrIO.WriteLn;
        FpuIO.WriteLongReal(templ,25,19);StrIO.WriteLn;

        StrIO.WriteLn; FpuIO.ReadReal(temp); StrIO.WriteLn;
        StrIO.WriteString('Real Fpu is ');StrIO.WriteLn;
        FpuIO.WriteReal(temp,25,19);StrIO.WriteLn;

        StrIO.WriteLn; SLongIO.ReadReal(templ); StrIO.WriteLn;

        STextIO.SkipLine ;  (* ********** *)

        StrIO.WriteString('LongReal SL is ');StrIO.WriteLn;
        SLongIO.WriteReal(templ,25);StrIO.WriteLn;

        StrIO.WriteLn; SRealIO.ReadReal(temp); StrIO.WriteLn;

        STextIO.SkipLine ;  (* ********** *)

        StrIO.WriteString('Real SR is ');StrIO.WriteLn;
        SRealIO.WriteReal(temp,25);StrIO.WriteLn;
        
END io10.


regards,
Gaius