Summary for NIST bugs

FX Coudert Francois-Xavier.Coudert@lcp.u-psud.fr
Tue Dec 28 22:59:00 GMT 2004


Thanks for the PR numbers I didn't find.

>>* Finally, I have reduced the failure of FM912
>
> Good luck, I didn't understand what they were doing :-)

This is the reduced test case I managed to get (without comment, it's 12 
lines, which I guess is not so bad):
       PROGRAM FM912
       IMPLICIT NONE
       CHARACTER STR*120
       OPEN(FILE='FOO',UNIT=24,ACCESS='DIRECT',RECL=120,FORM='FORMATTED')
C   WRITES RECORDS 1, 2, AND 3
       WRITE(UNIT=24,REC=1,FMT=4126)
4126  FORMAT('AAAAAAAAAAAAAAAA',//, 10HHOLLERITH , T15, 'ONE', 10X,
      1       TL5, 'TWO', TR5, 'THREE', :, 'LAST')
C   READS RECORD 3
       READ(UNIT=24,REC=3,FMT=4127) STR
4127  FORMAT(A120)
       PRINT *, STR
       CLOSE(UNIT=24)
       END

It still exhibits the failure, but I don't really know how to reduce it 
any further. I am scared by the term "HOLLERITH", which has always been 
black magic to me, so I didn't want to work further along this way. 
Perhaps someone will recognise a bug or will be able to reduce it further.

-- 
FX



More information about the Fortran mailing list