[RFC] Quad-float support, round 4

[Angelo Graziosi]

Il 14/09/2010 9.29, FX ha scritto:
>> I have tried the same on Cygwin but...
>>
>> $ gcc-4.6 -x c -E timing.pf90 -o timing.f90&&  gfortran-4.6 -ffree-line-length-none -fno-whole-file timing.f90 -L/tmp/libquad/lib -lgfortran -lquad -lm -O2&&  ./a.exe
>>
>> /tmp/ccwu3X12.o:timing.f90:(.text+0x8c4): undefined reference to `_sinl'
>> /tmp/ccwu3X12.o:timing.f90:(.text+0xe84): undefined reference to `_cosl'
>> /tmp/ccwu3X12.o:timing.f90:(.text+0x1444): undefined reference to `_asinhl'
>> /tmp/ccwu3X12.o:timing.f90:(.text+0x1a04): undefined reference to `_erfcl'
>
> Cygwin doesn't have long double, a.k.a. real(kind=10), math library support. Remove all lines that use this kind value.

For completeness, these are the results on Cygwin:

$ /tmp/gfortran/bin/gcc-4.6 -x c -E timing.pf90 -o timing.f90 && 
/tmp/gfortran/bin/gfortran-4.6 -static -ffree-line-length-none 
-fno-whole-file timing.f90 -L/tmp/libquad/lib -lgfortran -lquad -O2 && 
./a.exe
  Time for   sqrt with kind  4 = 0.1720E-07
  Time for   sqrt with kind  8 = 0.1720E-07
  Time for   sqrt with kind 16 = 0.9282E-06

  Time for    sin with kind  4 = 0.3590E-07
  Time for    sin with kind  8 = 0.3590E-07
  Time for    sin with kind 16 = 0.3704E-05

  Time for    cos with kind  4 = 0.4370E-07
  Time for    cos with kind  8 = 0.4840E-07
  Time for    cos with kind 16 = 0.5633E-05

  Time for  asinh with kind  4 = 0.1750E-06
  Time for  asinh with kind  8 = 0.4469E-06
  Time for  asinh with kind 16 = 0.1420E-04

  Time for   erfc with kind  4 = 0.4530E-07
  Time for   erfc with kind  8 = 0.4690E-07
  Time for   erfc with kind 16 = 0.7320E-05

Ciao,
Angelo.