Path: utzoo!attcan!uunet!mailrus!cs.utexas.edu!uwm.edu!bionet!ames!dftsrv!iris613.gsfc.nasa.gov!merritt
From: merritt@iris613.gsfc.nasa.gov (John H Merritt)
Newsgroups: comp.sys.sgi
Subject: f77 bug on IRIX 3.2
Message-ID: <2662@dftsrv.gsfc.nasa.gov>
Date: 29 Jun 90 23:31:40 GMT
Sender: news@dftsrv.gsfc.nasa.gov
Reply-To: merritt@iris613.gsfc.nasa.gov (John H Merritt)
Organization: Goddard Space Flight Center Climate and Radiation Branch
Lines: 28


Here's something that fails to produce correct output.
When you use a temporary variable for c_ext (or the string),
in the concatination statement, you get the correct result.

      program ch
      character c_ext*16, filename*7

      filename = 'FOO.BAR'
      c_ext = '.2'
      c_ext = filename // c_ext

      print*,'c_ext:',c_ext

      stop
      end

Produces:
 c_ext:FOO.BARFOO.BAR


I remember a bug when using  //  to create a filename in an open statement.
Is this the same bug?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
John H. Merritt                   #  Yesterday I knew nothing,
Applied Research Corporation      #  Today I know that.
merritt@iris613.gsfc.nasa.gov     #