Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!rutgers!mcnc!ece-csc!ncrcae!ncr-sd!hp-sdd!hplabs!ucbvax!ucsfcgl!cgl.ucsf.edu!conrad
From: conrad@cgl.ucsf.edu.UUCP
Newsgroups: comp.lang.fortran
Subject: bug in 4.3BSD f77 compiler
Message-ID: <10417@cgl.ucsf.EDU>
Date: Thu, 1-Oct-87 20:58:21 EDT
Article-I.D.: cgl.10417
Posted: Thu Oct  1 20:58:21 1987
Date-Received: Sat, 3-Oct-87 08:45:10 EDT
Sender: daemon@cgl.ucsf.edu
Reply-To: conrad@cgl.ucsf.edu (Conrad Huang)
Distribution: world
Organization: UCSF Computer Graphics Lab
Lines: 23

One of our users ran into a problem with f77 on 4.3BSD and I was wondering
whether anyone has a fix for it.  The following program is fairly simple:

	character x*10,y*10
	x = 'hello'
	y = 'hellp'
	i = 1
	if (x(i:i).eq.y(1:1) .and. x(i*2:i*2).ne.y(2:2)) then
		write(6,10) 'help'
10		format(' ', a4)
	endif
	stop
	end

There should be no output since
	x(i:i) = 'h'
	y(1:1) = 'h'
	x(i*2:i*2) = 'e'
	y(2:2) = 'e'
but if you compile and run it, it says "help".  Any pointers to fixes is
greatly appreciated.  Thanks in advance,

Conrad