[6220] in Athena Bugs
vax 7.1H: f77
daemon@ATHENA.MIT.EDU (ellis@ATHENA.MIT.EDU)
Tue Oct 16 13:32:07 1990
From: ellis@ATHENA.MIT.EDU
To: bugs@ATHENA.MIT.EDU
Date: Tue, 16 Oct 90 13:31:44 EDT
System name: m33-222-6
Type and version: CVAXSTAR 7.1H
Display type: SM
What were you trying to do?
raise a complex number to a real power
What's wrong:
when the complex number is 0, the following error occurs:
Illegal instruction (reserved operand fault) in infnan at 0x3ad4
00003ad4 emodd $000000000000,$0,$008000000000,r0,r0
(dbx) where
infnan(0xffffffde) at 0x3ad4
log(0x0, 0x0) at 0x3dba
pow_zz(0x7fffe24c, 0x7fffe23c, 0x1c8) at 0x4c9
MAIN(), line 6 in "tester.f"
main(0x1, 0x7fffe2b8, 0x7fffe2c0) at 0x263
What should have happened:
0 to any power is 0
To duplicate, compile and run the following:
complex a,b
a = (0,0)
c = a**2
write(6,*) c
c = (a)**2.1
write(6,*) c
stop
end
