[Bug fortran/15323] [gfortran] ICE in create_tmp_var_for

["Tobias dot Schlueter at physik dot uni-muenchen dot de" <gcc-bugzilla at gcc dot gnu dot org>]

------- Additional Comments From Tobias dot Schlueter at physik dot uni-muenchen dot de  2004-05-06 16:20 -------
upgrading mozilla was no good idea, I can't attach a file. Here's the source:
! Derived from one of Meissner's examples. Copyright of the unreduced testcase:
!  copyright 1996 Loren P. Meissner -- May be distributed if this line is included.
!  "Old fashioned" (non-fast) Fourier transform -- with Complex exponential
!  See Hildebrand, "Intro to Numerical Analysis", McGraw Hill 1956

  program Periodic
    implicit none
    integer, parameter :: N = 6, L = 5
    real, parameter :: Pi = 3.1415926536
    real, dimension(-N: N) :: Data_In

contains

    function T_Sum (K) result (Sum)
      integer, intent (in) :: K
      complex :: Sum
      integer :: R
 !  start function T_Sum
      ! Data_In is periodic so -N and N are equal by def. So average them.
      Sum =  0.5 * ( Data_In(-N) * Exp (Cmplx (0.0, Real(- K) * Pi ))  &
                   + Data_In( N) * Exp (Cmplx (0.0, Real(  K) * Pi )) )
      return
    end function T_Sum

end program Periodic


-- 


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