[Bug middle-end/30969] [4.3 Regression] The polyhedron test 'fatigue.f90' is no longer working.

["dominiq at lps dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #6 from dominiq at lps dot ens dot fr  2007-02-27 15:36 -------
I don't know if this reduced test account for all the problem, but it exhibits
at least one bug:

module perdida_m
implicit none
contains
      subroutine perdida (dt, strain_tensor)
      real (kind = 8), intent(in) :: dt
      real (kind = 8), dimension(:,:), intent(in) :: strain_tensor
      end subroutine perdida
end module perdida_m

program iztaccihuatl
      use perdida_m
      implicit none
      real (kind = 8) :: dt, time, coefficient
      real (kind = 8), dimension(3,3,10) :: strain_tensor
      dt = 5.555555555555556D-006 
      strain_tensor = 0.0_8
      time = dt
      coefficient = sin(time)
      print *, coefficient
      coefficient = cos(time)
      call perdida (dt, strain_tensor(:,:,1))
end program iztaccihuatl

gives

  1.947453947074031E-314

If I comment the line 'call perdida (dt, strain_tensor(:,:,1))', I get

  5.555555555526978E-006

As far as I can tell, all the ingredients in this test case are necessary to
trigger the bug.


-- 


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