From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 9720 invoked by alias); 5 Jan 2005 08:34:06 -0000 Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org Received: (qmail 9668 invoked by uid 48); 5 Jan 2005 08:33:56 -0000 Date: Wed, 05 Jan 2005 08:34:00 -0000 Message-ID: <20050105083356.9667.qmail@sourceware.org> From: "Thomas dot Koenig at online dot de" To: gcc-bugs@gcc.gnu.org In-Reply-To: <20041109140117.18398.sfilippone@uniroma2.it> References: <20041109140117.18398.sfilippone@uniroma2.it> Reply-To: gcc-bugzilla@gcc.gnu.org Subject: [Bug libfortran/18398] Formatted I/O problems X-Bugzilla-Reason: CC X-SW-Source: 2005-01/txt/msg00414.txt.bz2 List-Id: ------- Additional Comments From Thomas dot Koenig at online dot de 2005-01-05 08:33 ------- A testcase with character variables: $ gfortran cline $ cat cline.f character*2 c1,c2 open(7) write (7,'(A1)') 'a','b','c' rewind(7) read(7,'(A2)') c1,c2 print *,c1,c2 if (c2 .ne. 'b ') call abort end $ gfortran cline.f $ ./a.out a c Aborted $ g77 cline.f $ ./a.out a b I think this bug can be summed up as: "Input Format longer than line length causes following record to be skipped". This bug may be the reason for the I/O related LAPACK failures. In the driver programs, for example cchkaa.f at line 314, there's the line READ( NIN, FMT = '(A72)', END = 140 )ALINE If the input line in question is shorter than 72 characters, this bug will cause the next line to be skipped, with - presumably - bad consequences. -- What |Removed |Added ---------------------------------------------------------------------------- CC| |Thomas dot Koenig at online | |dot de http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18398