Bug in MIPS f77 internal READ

[Jim Pflugrath]

C 
C In the MIPS f77 compiler when one attempts an internal READ on
C a string containing a newline character, one gets bogus results.
C The following code demonstrates this.
C If there is a fix, can someone please post it?
C
C  Jim Pflugrath
C  <pflugrat at cshl.org>
C
C====================================================================
C Program to demonstrate bug in internal READ
C when a character has numeric value 10 (aka linefeed, newline).
C
C This bug shows up with the MIPS f77 compiler.
C
      INTEGER     I, J, K
      INTEGER*2   II
      CHARACTER*2 CC
C
      DO 100 I = 0, 127
         DO 100 J = 0, 127
            WRITE (CC, '(A1, A1)') CHAR(I), CHAR(J)
            READ (CC, '(A2)') II
C
C Evans & Sutherland, Silicon Graphics and Big Endian architectures:
C
            K = J + 256 * I
C
C ULTRIX and Little Endian architectures:
C            K = I + 256 * J
C
            IF (K .NE. II) WRITE (6, *) 'I, J, II, K: ', I, J, II, K

 100     CONTINUE
      CONTINUE
      STOP
      END