This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]
Other format:	[Raw text]

Formatted read with T format advances input file when a short record is encountered

From: "Kraner, Luke (ES & CSO)" <luke dot kraner at ngc dot com>
To: "fortran at gcc dot gnu dot org" <fortran at gcc dot gnu dot org>
Date: Mon, 24 Oct 2016 22:10:16 +0000
Subject: Formatted read with T format advances input file when a short record is encountered
Authentication-results: sourceware.org; auth=none

I think I have encountered a minor bug in gfortran formatted input.   The attached sample program tformat.f reads the file empty.inp with the statements:

         READ(5,1010        )  IDXBLK, LMAX, LMIN
1010     FORMAT(8X,I4,T51,2I5)

If a record less than 12 characters long is encountered, the program advances the input file by one additional record.  This violates section 9.4.4.4.2 of J3/97-007R2 which states that unless PAD='NO' is specified, the processor should supply blanks if the format requires more characters from the record than the record contains.

Luke Kraner

Attachment: tformat.f
Description: tformat.f

Attachment: blanks.inp
Description: blanks.inp

Attachment: empty.inp
Description: empty.inp

Follow-Ups:
- Re: Formatted read with T format advances input file when a short record is encountered
  - From: Jerry DeLisle

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]