$ gp lireToto_ioResult.pas 
$ ./lireToto_ioResult
ioResult = 0
c = a ; ord(c) = 97
ioResult = 0
i = -12
ioResult = 0
s = lulu 
ioResult = 0
x =  1.345000000000000e+00
ioResult = 0
c =   ; ord(c) = 32
ioResult = 0
x =  1.000000000000000e+00
ioResult = 0
s = a
./lireToto_ioResult: attempt to read past end of file `toto.txt' (error #454 at 2540)
Trace/BPT trap
$ more toto.txt
a  
 -12lulu 

   
1.345 45 
 1a
$