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
Message-Id: <3.0.1.32.20020625202236.00b411a8@roma.alespazio.it>
X-Sender: impagnat AT roma DOT alespazio DOT it
Date: Tue, 25 Jun 2002 20:22:36 +0200
To: cygwin AT cygwin DOT com
From: Fabrizio Impagnatiello <f DOT impagnatiello AT roma DOT alespazio DOT it>
Subject: BUG BUG BUG -- cygwin1.dll v1.3.11
Cc: a DOT gallon AT alsroma DOT roma DOT alespazio DOT it, f DOT digiorgio AT alsroma DOT roma DOT alespazio DOT it
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=====================_1025022156==_"

--=====================_1025022156==_
Content-Type: text/plain; charset="us-ascii"

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.


Thank you for support


Fabrizio Impagnatiello
--=====================_1025022156==_
Content-Type: text/plain; charset="us-ascii"


	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

--=====================_1025022156==_
Content-Type: text/plain; charset="us-ascii"



ing. Fabrizio Impagnatiello
f DOT impagnatiello AT roma DOT alespazio DOT it

Alenia Spazio - A Finmeccanica S.p.a. Company
via Saccomuro 24 - 00131 Rome - Italy
Remote Sensing Engineering
Head of Advanced Study Department
phone +39.06.41512218


--=====================_1025022156==_
Content-Type: text/plain; charset=us-ascii

--
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/
--=====================_1025022156==_--