! Some basic testing that calls to the library still work correctly with ! -ff2c ! ! Once the library has support for f2c calling conventions (i.e. passing ! a REAL(kind=4) or COMPLEX-valued intrinsic as procedure argument works), we ! can simply add -ff2c to the list of options to cycle through, and get ! complete coverage. As of 2005-03-05 this doesn't work. ! { dg-do run } ! { dg-options "-ff2c" } complex c double complex d x = 2. if ((sqrt(x) - 1.41)**2 > 1.e-4) call abort () x = 1. if ((atan(x) - 3.14/4) ** 2 > 1.e-4) call abort () c = (-1.,0.) if (sqrt(c) /= (0., 1.)) call abort () d = c if (sqrt(d) /= (0._8, 1._8)) call abort () end