Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!rutgers!seismo!mcvax!ukc!warwick!cudac
From: cudac@warwick.UUCP
Newsgroups: comp.lang.fortran
Subject: Fortran77 internal files
Message-ID: <325@daisy.warwick.ac.uk>
Date: Thu, 13-Aug-87 16:09:43 EDT
Article-I.D.: daisy.325
Posted: Thu Aug 13 16:09:43 1987
Date-Received: Sun, 16-Aug-87 08:44:31 EDT
Reply-To: cudac@daisy.warwick.ac.uk (Tim Clark)
Organization: Computing Services, University of Warwick, UK
Lines: 26
Keywords: FORTRAN 77 INTERNAL FILES BLANK

The following piece of code can produce different effects on different
implementations of Fortran77. It demonstrates the differences in BLANK
handling in formatted input from internal files.

      CHARACTER*8 BUFF
      BUFF = '1'
      READ(BUFF,'(F8.0)') X
      WRITE(*,*) X
      STOP
      END

Unix 4.2 bsd f77 yeilds:-
   1.00000

whilst IBM's VS FORTRAN yields:-
  10000000.0

I can't find anywhere in the Fortran 77 standard which defines the effect
of blank handling on internal files. Any suggestions on which is correct?

Tim Clark.
T.Clark@daisy.warwick.ac.uk    or:-
UUCP:  ...!ukc!warwick!daisy!T.Clark             |Post: Computing Services
ARPA:  T.Clark%daisy.warwick.ac.uk@cs.ucl.ac.uk  |      University of Warwick
JANET: T.Clark@uk.ac.warwick.daisy               |      Coventry,  UK
Phone:	+44 203 523224                    |	 CV4  7AL