[Bug fortran/21912] Wrong implied do-loop

[tobi at gcc dot gnu dot org]

------- Additional Comments From tobi at gcc dot gnu dot org  2005-06-05 10:58 
-------
Slightly reduced testcase:
[EMAIL PROTECTED] tests]$ cat pr21912.f90
program main
  call foo(5)
end program main

subroutine foo(n)
  implicit none
  integer :: n, i
  integer :: k(5)
  k = (/(i,i=n,1,-1)/)
  print *, k
end subroutine foo
[EMAIL PROTECTED] tests]$ ./a.out
           1           0   134519120           9   134513546
[EMAIL PROTECTED] tests]$

-- 


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