BUG: MATHERRQQ() Complex Result Variable Not Used

MORE INFORMATION

Steps to Reproduce Problem

Sample Code

! Compile options needed: /MT

      PROGRAM COMPLX
      COMPLEX(4) c1, c2 /(0.0, 0.0)/ 
      c1 = clog(c2)

      WRITE(*, *) c1
      END PROGRAM COMPLX

      SUBROUTINE MATHERRQQ( name, length, info, retcode)
      USE MSFLIB
      INTEGER(2) length, retcode
      CHARACTER(length) name
      RECORD /MTH$E_INFO/ info
      PRINT *, "Entered MATHERRQQ"
      PRINT *, "Failing function is: ", name
      PRINT *, "Error type is: ", info.errcode
      IF((info.ftype==TY$CMPLX8).OR.(info.ftype==TY$CMPLX16)) THEN
        PRINT *, "Type: COMPLEX"
        PRINT *, "Enter the desired function result: "
        READ(*,*) info.c16res
        retcode = 1
      END IF
      END