Re: Possible explaination why large_real_kind_form_io_2.f90 is failing on PPC/OSX

[dominiq at lps dot ens dot fr (Dominique Dhumieres)]

> What does -fdump-tree-original show?
> If 'x = cos(x)' eventually calls an OS supplied cos()
> function, then contact Apple.

The dump is

MAIN__ ()
{
  real8 y;
  real16 x;

  _gfortran_set_std (70, 127, 0);
  {
    struct __st_parameter_dt dt_parm.0;

    dt_parm.0.common.filename = "diff_8_16.f90";
    dt_parm.0.common.line = 3;
    dt_parm.0.common.unit = 6;
    dt_parm.0.common.flags = 128;
    _gfortran_st_write (&dt_parm.0);
    {
      static real16 C.950 = -4.76095461260441722128504920117717169482747578647e-17;

      _gfortran_transfer_real (&dt_parm.0, &C.950, 16);
    }
    _gfortran_st_write_done (&dt_parm.0);
  }
  x = 5.40302305868139717400936607442979350317080009713e-1;
  y = 5.40302305868139765010482733487151563167572021484e-1;
  {
    struct __st_parameter_dt dt_parm.1;

    dt_parm.1.common.filename = "diff_8_16.f90";
    dt_parm.1.common.line = 6;
    dt_parm.1.common.unit = 6;
    dt_parm.1.common.flags = 128;
    _gfortran_st_write (&dt_parm.1);
    {
      real16 D.952;

      D.952 = x - (real16) y;
      _gfortran_transfer_real (&dt_parm.1, &D.952, 16);
    }
    _gfortran_st_write_done (&dt_parm.1);
  }
  x = 1.0e+0;
  y = 1.0e+0;
  x = __builtin_cosl (x);
  y = __builtin_cos (y);
  {
    struct __st_parameter_dt dt_parm.2;

    dt_parm.2.common.filename = "diff_8_16.f90";
    dt_parm.2.common.line = 11;
    dt_parm.2.common.unit = 6;
    dt_parm.2.common.flags = 128;
    _gfortran_st_write (&dt_parm.2);
    {
      real16 D.954;

      D.954 = x - (real16) y;
      _gfortran_transfer_real (&dt_parm.2, &D.954, 16);
    }
    _gfortran_st_write_done (&dt_parm.2);
  }
}

What is the source of __builtin_cosl?

Dominique