sgif90: flush not working

["E. Focht" <focht@xxxxxxxxxx>]

Hello,

when trying to CALL FLUSH(IUNIT) I found that it has no effect. Looking
into libf/fio/flush.c revealed the following piece of code:


                case FS_TEXT:
                case STD:
#if     !defined(_LITTLE_ENDIAN)
                        if (FILE_FLAG(cup->ufp.std) & _IOWRT)
                                if (fflush(cup->ufp.std) == EOF)
                                        FLUSH_ERROR(errno);
#endif
                        break;

As far as I understand, flushing is ignored on little endian machines. Is
there a special reason for this? Will it change?

Thanks,
best regards,
Erich


---
Erich Focht                                    <efocht@xxxxxxxxxx>
NEC European Supercomputer Systems, European HPC Technology Center
Hessbruehlstr. 21B, 70565 Stuttgart, Germany
phone: +49-711-78055-15                    fax  : +49-711-78055-25