f77 bug on IRIX 3.2

John H Merritt merritt at iris613.gsfc.nasa.gov
Sat Jun 30 09:31:40 AEST 1990


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 at iris613.gsfc.nasa.gov     #



More information about the Comp.sys.sgi mailing list