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:	<3D18CCAF.1050203@dufair.org>
Date:	Tue, 25 Jun 2002 15:03:59 -0500
From:	Jason Dufair <jase AT dufair DOT org>
User-Agent:	Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.1a) Gecko/20020611
X-Accept-Language:	en-us, en
MIME-Version:	1.0
To:	cygwin AT cygwin DOT com
Subject:	[OT]Re: BUG BUG BUG -- cygwin1.dll v1.3.11
References:	<3 DOT 0 DOT 1 DOT 32 DOT 20020625202236 DOT 00b411a8 AT roma DOT alespazio DOT it> <20020625185332 DOT GD31059 AT redhat DOT com>

What a banner day!  I am pleased to announce that even after having had 
a class in Fortran (15 years ago), I did not immediately recognize the 
included code as Fortran code.  My brain has been completely purged of 
Fortran!  Hurray!

>>	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
>>    
>>

-- 
Jason Dufair - jase AT dufair DOT org
http://www.dufair.org/
"The oldest one despairs: Will I die in this place?
The one of middle years searches: How did I come to this place?
The youngest one wonders: What is this place?"
-- ToasterLeavings



--
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/

- Raw text -