Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!apple!julius.cs.uiuc.edu!usc!elroy.jpl.nasa.gov!decwrl!sgi!shinobu!odin!dinkum!calvin
From: calvin@dinkum.wpd.sgi.com (Calvin H. Vu)
Newsgroups: comp.lang.fortran
Subject: Re: Non-VMS like behaviour of "f77 -vms ..."
Message-ID: <1990Nov9.012631.13152@odin.corp.sgi.com>
Date: 9 Nov 90 01:26:31 GMT
References: <9811@helios.TAMU.EDU> <6171@mwk.uucp>
Sender: news@odin.corp.sgi.com (Net News)
Distribution: usa
Organization: Silicon Graphics, Inc.  Mountain View, CA
Lines: 30

Since the -vms option sounds like a MIPS-based compiler option I tried
to compile the following test program with -vms on an SGI machine:

	CHARACTER*10 ANSWER
C  The blank is added before 'Enter' to keep 'E' from being interpreted
C  as a carriage control character
        WRITE( 6, '('' Enter your answer: '',$)' )
	READ(5,'(A10)') ANSWER
	print *, answer
	end

when I ran it I got:
Enter your answer: hello
hello     

which is probably what you're looking for.  BTW, I know '$' can be used
as a format editing character (i.e. above usage) but I've never heard that
it can be used as a carriage control character (i.e. below usage) and effects
the NEXT INPUT line:
        WRITE( 6, '(''$Enter your answer: '')' ) ! Sure you can do this ?

Oh well, if you are using a MIPS based computer, at least now you know one
way to make it work :-).

- calvin
--
-----------------------------------------------------------------------------
Calvin H. Vu			   | "We are each of us angels with only one
Silicon Graphics Computer Systems  | wing.  And we can only fly embracing
calvin@sgi.com   (415) 962-3679	   | each other."