From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-124531-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 23986 invoked by alias); 1 Jan 2005 03:38:07 -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 23972 invoked by uid 48); 1 Jan 2005 03:38:03 -0000
Date: Sat, 01 Jan 2005 03:38:00 -0000
From: "bdavis at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Message-ID: <20050101033803.19216.bdavis@gcc.gnu.org>
Reply-To: gcc-bugzilla@gcc.gnu.org
Subject: [Bug libfortran/19216] New: formatted read with leading slash
X-Bugzilla-Reason: CC
X-SW-Source: 2005-01/txt/msg00012.txt.bz2
List-Id: <gcc-bugs.sourceware.org>

This is from FM923.FOR

$ cat b.f
       INTEGER J1I(3)
       DATA J1I / 3,2,1 /
       WRITE(20,'(A)')'/ 10 20 30'
       WRITE(20,'(A)')'1 2 3 4'
       WRITE(20,'(A)')'5 6 7 8'
       REWIND(20)
       READ(20,*) (J1I(IVI), IVI=1,3)
       PRINT*,(J1I(IVI), IVI=1,3)
       READ(20,*) I,J
       PRINT*,I,J
       READ(20,*) I,J
       PRINT*,I,J
       END
$ gfc b.f
$ ./a.out
           1           2           1
           5           6
At line 11 of file b.f
Fortran runtime error: End of file
$ g77 b.f
$ ./a.out
 3 2 1
 1 2
 5 6

$ gfc --version
GNU Fortran 95 (GCC 4.0.0 20050101 (experimental))

-- 
           Summary: formatted read with leading slash
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org


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