I have wrongly reported this regression under PR34848: pr33998.f90 started to
fail after rev. 131676 and pr34897.f90 after rev. 131679. These ICEs occurs now
for the original test cases:
[ibook-dhum] f90/bug% cat pr33998.f90
module test
implicit none
contains
function my_string(x)
integer i
real, intent(in) :: x(:)
character(0) h4(1:minval([(1,i=1,0)],1))
character(0) sv1(size(x,1):size(h4))
character(0) sv2(2*lbound(sv1,1):size(h4))
character(lbound(sv2,1)-3) my_string
do i = 1, len(my_string)
my_string(i:i) = achar(modulo(i-1,10)+iachar('0'))
end do
end function my_string
end module test
program len_test
use test
implicit none
real x(7)
write(*,*) my_string(x)
end program len_test
[ibook-dhum] f90/bug% cat pr34897.f90
function my_string(x)
integer i
real, intent(in) :: x(:)
character(0) h4(1:minval([(1,i=1,0)],1)) ! If range is 1,0 bombs out.
character(0) sv1(size(x,1):size(h4))
character(0) sv2(2*lbound(sv1,1):size(h4))
character(lbound(sv2,1)-3) my_string
end function my_string
end
In both cases the ICEs are:
[ibook-dhum] f90/bug% gfc pr33998.f90
pr33998.f90: In function 'my_string':
pr33998.f90:7: internal compiler error: in gfc_typenode_for_spec, at
fortran/trans-types.c:842
...
[ibook-dhum] f90/bug% gfc pr34897.f90
pr34897.f90: In function 'my_string':
pr34897.f90:1: warning: Function does not return a value
pr34897.f90:4: internal compiler error: in gfc_typenode_for_spec, at
fortran/trans-types.c:842
...
--
Summary: [4.3 Regression] ICE in gfc_typenode_for_spec, at
fortran/trans-types.c:842
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: dominiq at lps dot ens dot fr
GCC build triplet: powerpc/i686-apple-darwin9
GCC host triplet: powerpc/i686-apple-darwin9
GCC target triplet: powerpc/i686-apple-darwin9
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34990
