libf2c/4931: Code hangs while computing log of specific complex number

[toon@moene.indiv.nluug.nl]

>Number:         4931
>Category:       libf2c
>Synopsis:       Code hangs while computing log of specific complex number
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Thu Nov 22 14:16:01 PST 2001
>Closed-Date:
>Last-Modified:
>Originator:     Stefano Simonucci
>Release:        g77-3.0.x (release), g77-3.1 (experimental)
>Organization:
>Environment:
Not relevant.
>Description:
The following code hangs:

      double complex a,b
      a=(-0.992198783,-0.0275850352)
      write(6,*) ' A',a
      b=log(a)
      write(6,*) ' B',b
      stop
      end

before printing B.
>How-To-Repeat:

>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted: