https://gcc.gnu.org/bugzilla/show_bug.cgi?id=91862
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-valid-code
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
These variants actually compile and run :
$ cat z3.f90
program p
integer :: i
character(3) :: a(3) = 'abc'
character(1) :: b(1)
b = [([ (a(i)(i:i), i=1,1) ])]
print *, b
end
$ cat z4.f90
program p
integer :: i
character(3) :: a(3) = 'abc'
character(1) :: b(1)
b = [([ (a(i)(1:1), i=1,1) ])]
print *, b
end
$ cat z5.f90
program p
integer :: i = 1
character(3) :: a(3) = 'abc'
character(1) :: b(1)
b = [([ (a(i)(i:i)) ])]
print *, b
end
$ gfortran-10-20190922 z3.f90 && ./a.out
a
$
