--- Comment #4 from fxcoudert at gcc dot gnu dot org 2007-02-06 13:41
---
I was wrong: the bug basically happens for all intrinsics which gfc_walk_expr
one of their arguments and then simply assert that the ss != gfc_ss_terminator.
This is a wrong thing to do for constant arguments. I a
--- Comment #3 from fxcoudert at gcc dot gnu dot org 2007-02-06 12:25
---
> $ cat pr29400-3.f90
> integer,parameter :: i(1,1) = 0
> logical :: l
> l = any(i==1)
> end
> $ gfortran pr29400-3.f90 && ./a.out
> pr29400-3.f90: In function MAIN__:
> pr29400-3.f90:1: internal compil
--- Comment #2 from fxcoudert at gcc dot gnu dot org 2006-10-09 12:44
---
And while I'm there, a few possibly related bugs:
$ cat pr29400-2.f90
integer,parameter :: i(1,1) = 0
logical :: l(2)
l = any(i==1,2)
end
$ gfortran pr29400-2.f90 && ./a.out
Fortran runtime error: rank o
--- Comment #1 from fxcoudert at gcc dot gnu dot org 2006-10-09 12:36
---
The generated code for:
integer,parameter :: i(1,1) = 0
integer :: j(1)
j = lbound(any(i==1,2))
end
is weird:
MAIN__ ()
{
int4 j[1];
_gfortran_set_std (70, 127, 0);
{
int8 S.0;
S.0 = 1;
--
fxcoudert at gcc dot gnu dot org changed:
What|Removed |Added
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last recon
