------- Comment #8 from janus at gcc dot gnu dot org 2010-07-05 18:49 -------
(In reply to comment #6)
> I isolated the bug further and prepared a roughly 1 MB sniplet which triggers
> the ICE.
Here is a reduced test case:
module proc8
implicit none
private
integer, parameter :: n_cflow = 128
integer, parameter :: n_flv = 512
logical, dimension(n_flv), parameter, private :: a0001 = .false.
logical, dimension(n_flv, n_cflow), parameter :: flv_col_is_allowed = &
reshape ( (/ a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, &
a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, &
a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, &
a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, &
a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, &
a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, &
a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, &
a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, &
a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, &
a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, &
a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, &
a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, &
a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001, a0001 /), &
(/ n_flv, n_cflow /) )
end module proc8
It works when using numbers smaller than 128*512=2^16.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44742
