1! Some basic testing that calls to the library still work correctly with 2! -ff2c 3! 4! Once the library has support for f2c calling conventions (i.e. passing 5! a REAL(kind=4) or COMPLEX-valued intrinsic as procedure argument works), we 6! can simply add -ff2c to the list of options to cycle through, and get 7! complete coverage. As of 2005-03-05 this doesn't work. 8! { dg-do run } 9! { dg-options "-ff2c" } 10 11complex c 12double complex d 13 14x = 2. 15if ((sqrt(x) - 1.41)**2 > 1.e-4) STOP 1 16x = 1. 17if ((atan(x) - 3.14/4) ** 2 > 1.e-4) STOP 2 18c = (-1.,0.) 19if (sqrt(c) /= (0., 1.)) STOP 3 20d = c 21if (sqrt(d) /= (0._8, 1._8)) STOP 4 22end 23 24