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>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit

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/