------- Additional Comments From steven at gcc dot gnu dot org 2005-07-31
23:41 -------
This fails for me on AMD64 even with -fno-web.
$ cat elemental-reduced.f90
! Program to test elemental functions.
program test_elemental
implicit none
integer, parameter :: N = 8
integer(kind = 4), dimension (N) :: a
integer(kind = 4), dimension (N) :: b
integer i
a = 2
b = e_fn (2, 0)
a = e_fn (a(N:1:-1), b)
do i = 1,N
if (a(i) /= 0) call abort
end do
contains
elemental integer function e_fn (p, q)
implicit none
integer, intent(in) :: p, q
e_fn = p - q
end function
end program
$ gfortran -static elemental-reduced.f90 -O3 -funroll-loops
$ ./a.out
Aborted
$ gfortran -static elemental-reduced.f90 -O3 -funroll-loops -fno-web
$ ./a.out
Aborted
$
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22509
