https://gcc.gnu.org/bugzilla/show_bug.cgi?id=91782
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |accepts-invalid
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
$ cat z2.f90 # without parameter
program p
integer :: i
character(3) :: x = 'abc'
print *, ['a', 'ab', 'abc']
print *, [x(1:1), x(1:2), x(1:3)]
print *, [(x(1:i), i=1,3)]
print *, ichar(([(x(1:i), i=1,3)]))
print *, len_trim([(x(min(1,i):i), i=1,3)])
end
$ gfortran-10-20190915 -c z2.f90
z2.f90:4:17:
4 | print *, ['a', 'ab', 'abc']
| 1
Error: Different CHARACTER lengths (1/2) in array constructor at (1)
z2.f90:5:20:
5 | print *, [x(1:1), x(1:2), x(1:3)]
| 1
Error: Different CHARACTER lengths (1/2) in array constructor at (1)
z2.f90:6:14:
6 | print *, [(x(1:i), i=1,3)]
| 1
Error: Different CHARACTER lengths (1/2) in array constructor at (1)
z2.f90:7:21:
7 | print *, ichar(([(x(1:i), i=1,3)]))
| 1
Error: Different CHARACTER lengths (1/2) in array constructor at (1)
z2.f90:8:23:
8 | print *, len_trim([(x(min(1,i):i), i=1,3)])
| 1
Error: Different CHARACTER lengths (1/2) in array constructor at (1)
