FIX: MATHERRQQ: Access Violation on C8ARG1 and C16ARG1

MORE INFORMATION

Sample Code

c compile options needed: none

      include 'flib.fi'
      implicit none
      include 'flib.fd'
      complex a,b,c
      call LCWRQQ(#133F)
      a=(233.75875785857,145.8498498998989)
      b=(345.84984984900,298.849849849989)
      c=a**b
      write(*,*)'****** successful completion ******'
      end

      SUBROUTINE MATHERRQQ(name, length, info, retcode)
      INCLUDE 'FLIB.FD'
      INTEGER*2 length
      CHARACTER name(length)
      RECORD / MTH$E_INFO / info
      INTEGER*2 retcode
      PRINT *, 'Entered MATHERRQQ'
      PRINT *, 'Failing function: ', name, '      Length: ', length
      PRINT *, 'Error Type: ', info.errcode

      SELECT CASE (info.errcode)
      CASE (MTH$E_OVERFLOW)
         PRINT *, 'OVERFLOW'
      CASE DEFAULT
         PRINT *, 'UNKNOWN'
      END SELECT

      SELECT CASE (info.ftype)
      CASE (TY$CMPLX8)
         PRINT *, 'Type: COMPLEX*8'
         PRINT *, 'Argument1: ', info.c8arg1
         PRINT *, 'Argument2: ', info.c8arg2
         info.c8res = 0.0
         retcode = 1
      CASE (TY$CMPLX16)
         PRINT *, 'Type: COMPLEX*16'

         PRINT *, 'Argument1: ', info.c16arg1
         PRINT *, 'Argument2: ', info.c16arg2
         info.c16res = 0.0
         retcode = 1
      END SELECT
      END