https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99711
--- Comment #4 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Setting the character length in the type spec enables this to run correctly, so
the string length is not getting set correctly in the allocate statement.
program allocnml
implicit none
character(len=10), dimension(:), allocatable :: cbulist_ru ! set here
integer :: iluseg
namelist /nam_bu_ru/ cbulist_ru
allocate( character(len=10) :: cbulist_ru(5) )
open(newunit=iluseg, file='list.nml', status='old', &
action='read', form='formatted', access='sequential')
read(unit=iluseg, nml=nam_bu_ru)
print *, cbulist_ru
close(unit=iluseg)
end program allocnml
