[Bug fortran/20956] gfortran - internal compiler error with -fdefault-real-8

[kargl at gcc dot gnu dot org]

------- Additional Comments From kargl at gcc dot gnu dot org  2005-04-12 00:15 
-------
> 
> powerpc-apple-darwin7.8.0
> 

Must be target specific

troutmask:kargl[204] cat ki.f
      subroutine prncp3
      common /concrt/ sigma(6)
      equivalence (sigma(1),p1)
      sigma(1)=sin(phi + 2.*pi/3.d0)
      return
      end
 
troutmask:kargl[206] /usr/home/sgk/work/41/bin/gfortran -fdefault-real-8 \
-fdump-tree-original -c ki.f
troutmask:kargl[207] cat ki.f.t02.original 
prncp3 ()
{
  real8 pi;
  real8 phi;

  concrt.sigma[0] = __builtin_sin (pi * 2.0e+0 / 3.0e+0 + phi);
  goto __return_prncp3;
  __return_prncp3:;
}


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20956