[Bug libfortran/93871] COTAN is slow for complex types

[thenlich at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=93871

--- Comment #29 from Thomas Henlich <thenlich at gcc dot gnu.org> ---
(In reply to Steve Kargl from comment #28)
>          ! Fold  into [0,90] range
...
>          if (arg == 180) then

I don't understand how (arg == 180) could be true after folding into [0,90]
range.