Mailing-List: contact cygwin-help@cygwin.com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe@cygwin.com>
List-Archive: <http://sources.redhat.com/ml/cygwin/>
List-Post: <mailto:cygwin@cygwin.com>
List-Help: <mailto:cygwin-help@cygwin.com>, <http://sources.redhat.com/ml/#faqs>
Sender: cygwin-owner@cygwin.com
Mail-Followup-To: cygwin@cygwin.com
Delivered-To: mailing list cygwin@cygwin.com
Message-Id: <3.0.1.32.20020625202236.00b411a8@roma.alespazio.it>
X-Sender: impagnat@roma.alespazio.it
Date: Tue, 25 Jun 2002 20:22:36 +0200
To: cygwin@cygwin.com
From: Fabrizio Impagnatiello <f.impagnatiello@roma.alespazio.it>
Subject: BUG BUG BUG -- cygwin1.dll v1.3.11
Cc: a.gallon@alsroma.roma.alespazio.it, f.digiorgio@alsroma.roma.alespazio.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.impagnatiello@roma.alespazio.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==_--


