------- Comment #6 from paul dot richard dot thomas at cea dot fr 2005-12-15
14:49 -------
(In reply to comment #5)
> the testcase in comment #1 no longer seg faults.
module funcs
implicit none
contains
function f(x)
character(*), intent(in) :: x
integer f(len(x))
integer i
do i=1,len(x)
f(i) = iachar (x(i:i))
end do
end function f
end module funcs
program spec_expr_test
use funcs
implicit none
write(*,*) f('test')
end program spec_expr_test
now compiles and runs correctly, as does my testcase.
I will close this tonight
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=19574
