FIX: Incorrect Results When ISHFT, ISHL in ISHFT or ISHL Call (71810)

MORE INFORMATION

The following code example demonstrates this problem.

Sample Code #1

C Compile options needed: None

      INTEGER IN, SHIFT, I
      IN = 2
      SHIFT = 4
      WRITE (*, *) 'input number to be shifted   ', IN
      WRITE (*, *) '# of bits to shift           ', SHIFT
C
C Shifting the number 00000010 (2 decimal) logically left by 4 bits
C then logically right by 4 bits should produce 00000010 (2 decimal).
C However, this code produces 00000000 (0 decimal).
C
      I = ISHFT(ISHFT(IN, SHIFT), -SHIFT)
      WRITE(*, *) 'input shifted over and back  ', I

      END
				

This application produces the following output:

input number to be shifted           2
# of bits to shift                   4
input shifted over and back          0
				

It is designed to produce the following output:

input number to be shifted           2
# of bits to shift                   4
input shifted over and back          2
				

Substituting the ISHL logical shift intrinsic function for the ISHFT logical shift intrinsic function produces the same incorrect results.

To work around this problem, split the logical shift functions into two separate expressions. The following code example demonstrates this technique.

Sample Code #2

C Compile options needed: None

      INTEGER IN, SHIFT, I, TMP
      IN = 2
      SHIFT = 4
      WRITE (*, *) 'input number to be shifted   ', IN
      WRITE (*, *) '# of bits to shift           ', SHIFT
C
C Shifting 00000010 (2 decimal) logically left by 4 bits
C produces the value 00100000 (32 decimal).
C
      tmp = ISHFT(in, shift)
C
C Shifting 00100000 (32 decimal) logically right by 4 bits
C produces the value 00000010 (2 decimal).
C
      I = ISHFT(TMP, -SHIFT)
      WRITE (*, *) 'input shifted over and back  ', I

      END