------- Comment #4 from hjl at lucon dot org  2007-05-19 16:12 -------
Here is a simple testcase. It fails on Linux/x86-64 and Linux/ia64. I think
it may fail on all 64bit systems:

[EMAIL PROTECTED] 31974]$ cat foo.f90
! { dg-do run }

  call test
contains
  subroutine foo (n)
    integer :: n
    integer :: p, q
    character (len = n) :: s
    character (len = n), dimension (5, 3:n) :: v
    s = 'P'
    forall (p = 1:5, q = 3:7, p + q .gt. 8) v(p, q) = '!'
  end subroutine foo

  subroutine test
    call foo (7)
  end subroutine test
end
[EMAIL PROTECTED] 31974]$ make
/export/build/gnu/gcc-last/build-x86_64-linux/gcc/gfortran
-B/export/build/gnu/gcc-last/build-x86_64-linux/gcc/
-L/export/build/gnu/gcc-last/build-x86_64-linux/gcc/../x86_64-unknown-linux-gnu/libgfortran/.libs
-static -g -o foo foo.o
./foo
Fortran runtime error: Attempt to allocate a negative amount of memory.
make: *** [all] Error 2
[EMAIL PROTECTED] 31974]$


-- 


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

Reply via email to