Summary for NIST bugs

Tim Prince tprince@computer.org
Wed Dec 29 01:13:00 GMT 2004


At 02:58 PM 12/28/2004, FX Coudert wrote:

>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

Here is sequential write on a direct access file, which looks difficult to 
support.  Then there is the question of how much value is there in 
supporting a combination of Hollerith, which has not been supported by 
standards for 25 years, along with syntax which was not standard until more 
recently.


Tim Prince 



More information about the Fortran mailing list