From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 21585 invoked by alias); 16 Nov 2001 19:06:02 -0000 Mailing-List: contact gcc-prs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-prs-owner@gcc.gnu.org Received: (qmail 21558 invoked by uid 71); 16 Nov 2001 19:06:01 -0000 Date: Mon, 05 Nov 2001 14:01:00 -0000 Message-ID: <20011116190601.21556.qmail@sourceware.cygnus.com> To: nobody@gcc.gnu.org Cc: gcc-prs@gcc.gnu.org, From: Youngjean Jung Subject: Re: fortran/4885: BACKSPACE example that doesn't work as of gcc/g77-3.0.x Reply-To: Youngjean Jung X-SW-Source: 2001-11/txt/msg00142.txt.bz2 List-Id: The following reply was made to PR fortran/4885; it has been noted by GNATS. From: Youngjean Jung To: Tim Prince Cc: toon@moene.indiv.nluug.nl, gcc-gnats@gcc.gnu.org, Youngjean Jung Subject: Re: fortran/4885: BACKSPACE example that doesn't work as of gcc/g77-3.0.x Date: Fri, 16 Nov 2001 10:59:40 -0800 This is a multi-part message in MIME format. --------------050003040109000003040403 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit Dear Mr. Tim Prince : I conducted many tests on the Endfile, Backspace commands. They don't work in the following senses: 1) Endfile command writes meaningless letters on the data file. 2) Endfile, Backspace combination doesn't make a 'backspace job'. As for 1), I attached test4.f and s2.dat. I compiled test4.f with g77-3.0.2. As you can see, s2.dat file has gabage letters. As for 2), I attached test3.f and s1.dat which I want in my data file. I expect just one line data. I generate s1.dat by compiling test3.f with g77-2.96. But I couldn't generate the s1.dat by compiling test3.f with g77-3.0.2. Sincerely, Youngjean. Tim Prince wrote: >g77 3.1 20011031 has no apparent problem with this on i686-pc-cygwin. >----- Original Message ----- >From: >To: >Cc: "Youngjean Jung" >Sent: Thursday, November 15, 2001 1:10 PM >Subject: fortran/4885: BACKSPACE example that doesn't work as of >gcc/g77-3.0.x > > >>>Number: 4885 >>>Category: fortran >>>Synopsis: BACKSPACE example that doesn't work as of gcc/g77-3.0.x >>>Confidential: no >>>Severity: serious >>>Priority: medium >>>Responsible: unassigned >>>State: open >>>Class: sw-bug >>>Submitter-Id: net >>>Arrival-Date: Thu Nov 15 13:16:01 PST 2001 >>>Closed-Date: >>>Last-Modified: >>>Originator: Youngjean Jung >>>Release: 3.0 and higher >>>Organization: >>>Environment: >>> >>Debian GNU/Linux 2.2 >> >>>Description: >>> >> The following code: >> >> open(51,file='s1.dat',status='unknown',access='sequential') >> do k=1,100 >> call plot(k) >> end do >> close(51) >> end >> subroutine plot(k) >> j=0 >> do i=1,10 >> if(j.lt.5) then >> j=j+1 >> else >> backspace 51 >> endif >> write(51,*) j, k >> end do >> end >> >>gives: >> >>$ ./a.out >>$ ./a.out >>backspace: end of file >>apparent state: unit 51 named s1.dat >>last format: list io >>lately writing direct formatted external IO >>Aborted >> >>[Note: for the failure to appear, the code has to be run >> a second time] >> >>>How-To-Repeat: >>> >>>Fix: >>> >>>Release-Note: >>>Audit-Trail: >>>Unformatted: >>> > > --------------050003040109000003040403 Content-Type: text/plain; name="test3.f" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="test3.f" program test c implicit none integer i,k c do i=1,10 open(1,file='s1.dat',status='unknown',access='sequential') do k=10,20 write(1,*) i,k backspace 1 end do close(1) end do c end c c --------------050003040109000003040403 Content-Type: text/plain; name="test4.f" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="test4.f" program test c implicit none integer i,k c do i=1,10 open(1,file='s2.dat',status='unknown',access='sequential') do k=10,20 write(1,*) i,k endfile 1 backspace 1 end do close(1) end do c end c c --------------050003040109000003040403 Content-Type: text/plain; name="s1.dat" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="s1.dat" 10 20 --------------050003040109000003040403 Content-Type: application/octet-stream; name="s2.dat" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="s2.dat" IDEwIDEwCgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAIDEwIDExCiAxMCAxMgogMTAgMTMKIDEwIDE0CiAxMCAxNQogMTAgMTYKIDEwIDE3 CiAxMCAxOAogMTAgMTkKIDEwIDIwCg== --------------050003040109000003040403--