From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-131615-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 16909 invoked by alias); 19 Feb 2005 20:44:44 -0000
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
Received: (qmail 16890 invoked by uid 48); 19 Feb 2005 20:44:41 -0000
Date: Sun, 20 Feb 2005 03:04:00 -0000
From: "dir at lanl dot gov" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Message-ID: <20050219204440.20092.dir@lanl.gov>
Reply-To: gcc-bugzilla@gcc.gnu.org
Subject: [Bug fortran/20092] New: gfortran not correctly padding keyboard or text file input
X-Bugzilla-Reason: CC
X-SW-Source: 2005-02/txt/msg02295.txt.bz2
List-Id: <gcc-bugs.sourceware.org>

Several of my progams use this method to read from the keyboard or a text file.
It should read input and print it until the first character on a line is a 's'.
Absoft 8.0 shows the correct response. gfortran gets a run time error reading
from a file and ignores the carrage returns when reading the keyboard.


[dir:~/tests/gfortran] dir% f77 -o char3 char3.f
FORTRAN 77 Compiler 8.0a, Copyright (c) 1987-2003, Absoft Corp.
[dir:~/tests/gfortran] dir% char3 <in3
one                                                                             
two                                                                             
s                                                                               
[dir:~/tests/gfortran] dir% char3
one
one                                                                             
two
two                                                                             
s
s                                                                               
[dir:~/tests/gfortran] dir% gfortran -o char3 char3.f
[dir:~/tests/gfortran] dir% char3 <in3
At line 4 of file char3.f
Fortran runtime error: End of file
[dir:~/tests/gfortran] dir% char3
one
two
s
s
^C
[dir:~/tests/gfortran] dir% cat char3.f
      program main
      character*1 a(80)
   10 continue
      read(5,2000)a
      write(6,2000)a
      if(a(1).ne.'s')goto 10
      stop
 2000 format(80a1)
      end
[dir:~/tests/gfortran] dir% cat in3
one
two
s

-- 
           Summary: gfortran not correctly padding keyboard or text file
                    input
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dir at lanl dot gov
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: powerpc-apple-darwin7.8.0


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20092