Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive: <http://sources.redhat.com/ml/cygwin/>
List-Post: <mailto:cygwin AT cygwin DOT com>
List-Help: <mailto:cygwin-help AT cygwin DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender: cygwin-owner AT cygwin DOT com
Mail-Followup-To: cygwin AT cygwin DOT com
Delivered-To: mailing list cygwin AT cygwin DOT com
Date: Tue, 25 Jun 2002 14:53:32 -0400
From: Christopher Faylor <cgf-cygwin AT cygwin DOT com>
To: cygwin AT cygwin DOT com
Subject: Re: BUG BUG BUG -- cygwin1.dll v1.3.11
Message-ID: <20020625185332.GD31059@redhat.com>
Reply-To: cygwin AT cygwin DOT com
Mail-Followup-To: cygwin AT cygwin DOT com
References: <3 DOT 0 DOT 1 DOT 32 DOT 20020625202236 DOT 00b411a8 AT roma DOT alespazio DOT it>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <3.0.1.32.20020625202236.00b411a8@roma.alespazio.it>
User-Agent: Mutt/1.3.23.1i

On Tue, Jun 25, 2002 at 08:22:36PM +0200, Fabrizio Impagnatiello wrote:
>Dear Mr. Faylor,
>
>please be informed about a bug discovered in version 1.3.11 of cygwin1.dll
>library. The annexed code, fully working with previous 1.3.10 version (gcc
>2.95.3-5 compiled), does not work at all with current one.
>
>After correct completion of file writing, the code is not capable of
>reading back the content disclosing the assignment to ii variable of the
>260 value which is the record length of variable length FORTAN record.
>
>I suppose it is due to a pointer mismatch.

Sorry but I don't do fortran.  I suspect this might be due to the
binmode/textmode changes but I can't offer any more than that.

Hopefully someone else will have some insight.

cgf

>Fabrizio Impagnatiello
>
>	program prova1
>	
>	call uno
>	call due
>
>	end
>
>
>	subroutine uno
>	character*256	vvv
>	open(unit=32, file='requests.db', form='unformatted',status='unknown')
>	n=162
>	write(32) n
>	do i=1,n
>		write(*,*) 'uno ',i
>		write(32) i,vvv
>	end do	
>	close(32)
>	return
>	end
>	
>	subroutine due
>	character*256	vvv
>	open(unit=32, file='requests.db', form='unformatted',status='old')
>	read(32) n
>	write(*,*) 'due TOT:',n
>	do i=1,n
>		read(32) ii,vvv
>		write(*,*) 'due ',i,ii
>	end do	
>	close(32)
>	return
>	end
--
Please do not send me personal email with cygwin questions.
Use the resources at http://cygwin.com/ .

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Bug reporting:         http://cygwin.com/bugs.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/