1 2 3 4 5 6 7 8
! { dg-options "-std=gnu" } ! { dg-do compile } ! Former ICE when simplifying complex cotan complex, parameter :: z = cotan((1., 1.)) print *, z end