https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82086
--- Comment #4 from Harald Anlauf <anlauf at gmx dot de> ---
(In reply to Jerry DeLisle from comment #3)
> I think this bug is invalid and gfortran is correct.
>
> If you do this:
>
> &n
> ta(1:8)%c = 'bogus'
> /
>
> You get what you expect. The way you have it, you can not put 8 strings
> called 'bogus' into one strng element of ta.
>
> Anyine else have any thoughts on this?
Can you please elaborate in more detail?
For the slightly modified testcase & data:
% cat pr82086b.f90
program pr82086
implicit none
type t
character(8) :: c=''
end type t
type(t), dimension(9) :: ta
type(t), dimension(9) :: tb
type(t), dimension(9) :: tc
character(8), dimension(9) :: td = ""
namelist /n/ta, tb, tc, td
open(1,file='pr82086b.txt')
read(1,nml=n)
print *, ta%c
print *, tb%c
print *, tc%c
print *, td
end program pr82086
% cat pr82086b.txt
&n
ta(1:8)%c = 'bogus'
tb(1:8)%c = 8*'bogus'
tc(1:8)%c = 'bogus','bogus','bogus','bogus','bogus','bogus','bogus','bogus'
td(1:8) = 8*'bogus'
/
I get with Intel v15, v17, PGI 17.10, Sun 8.4:
bogus
bogus bogus bogus bogus bogus bogus bogus bogus
bogus bogus bogus bogus bogus bogus bogus bogus
bogus bogus bogus bogus bogus bogus bogus bogus
Cray 8.4.1 and 8.6.5 reject the second line (tb).
Can you explain the subleties in more detail why the repeat does not
work as naively expected?
