https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70854
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
Similar for other intrinsic types :
$ cat z3.f90
program p
real :: x(2), y(2)
block
real, parameter :: a(2) = 0.0
x = a
block
y = 0.0
end block
end block
end
$ gfortran-6 -finit-real=zero -c z3.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447
$ gfortran-6 -finit-real=inf -c z3.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447
$ gfortran-6 -finit-local-zero -c z3.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447
---
$ cat z5.f90
program p
logical :: x(2), y(2)
block
logical, parameter :: a(2) = .true.
x = a
block
y = .false.
end block
end block
end
$ gfortran-6 -finit-logical=true -c z5.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447
$ gfortran-6 -finit-local-zero -c z5.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447
---
$ cat z7.f90
program p
character :: x(2), y(2)
block
character, parameter :: a(2) = 'a'
x = a
block
y = 'y'
end block
end block
end
$ gfortran-6 -finit-character=7 -c z7.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447
$ gfortran-6 -finit-local-zero -c z7.f90
internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6447
