1 ! Make sure the f2c calling conventions work
3 ! { dg-options "-ff2c" }
9 complex function c(a,b)
13 double complex function d(e,f)
15 d = cmplx (e, f, kind(d))
18 subroutine test_with_interface()
26 complex function c(a,b)
32 double complex function d(e,f)
40 if (x /= f(x)) call abort ()
42 if (x /= y) call abort ()
46 if (c(a,b) /= cmplx(a,b)) call abort ()
50 if (d(z,w) /= cmplx(z,w, kind(z))) call abort ()
51 end subroutine test_with_interface
60 if (x /= f(x)) call abort ()
62 if (x /= y) call abort ()
66 if (c(a,b) /= cmplx(a,b)) call abort ()
70 if (d(z,w) /= cmplx(z,w, kind(z))) call abort ()
72 call test_with_interface ()