https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77604
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |gs...@t-online.de
--- Comment #3 from G. Steinmetz <gs...@t-online.de> ---
Update :
$ cat z3.f90
module m
contains
elemental function f(x, y) result(z)
character(*), intent(in) :: x, y
character(len(x) ** len(y)) :: z
z = trim(x) // y
end
subroutine g(x)
character(*), intent(in) :: x(:)
print *, x
end
subroutine s
call g( f(['ab'], ['yz']) )
end
end
program p
use m
call s
end
$ cat z4.f90
module m
contains
elemental function f(x, y) result(z)
character(*), intent(in) :: x, y
character((2**len(x))/2 + (2**len(y))/2) :: z
z = trim(x) // y
end
subroutine g(x)
character(*), intent(in) :: x(:)
print *, x
end
subroutine s
call g( f(['ab'], ['yz']) )
end
end
program p
use m
call s
end
$ gfortran-9-20181118 -c z3.f90
during GIMPLE pass: fixup_cfg
z3.f90:3:0:
3 | elemental function f(x, y) result(z)
|
internal compiler error: Segmentation fault
0xc8934f crash_signal
../../gcc/toplev.c:325
0xebd012 get_use_from_ptr
../../gcc/tree-ssa-operands.h:112
0xebd012 verify_use
../../gcc/tree-ssa.c:906
0xec50f7 verify_ssa(bool, bool)
../../gcc/tree-ssa.c:1141
0xba4667 execute_function_todo
../../gcc/passes.c:1949
0xba5552 execute_todo
../../gcc/passes.c:1996
