The same three lines used as input from a file that work do not work when read from an internal
file. So If the input looks like
&args
A=T
\
that works from a file, but fails from an internal file. If the lines are very long (example uses 4096 characters to cause failure) it fails from the file as well. If add a comma after the "T" it works from internal file.
program main
logical :: a;namelist /args/ a
character(len=256) :: iomsg
integer :: iostat, i
character(len=4096) :: input(3)
input(1)='&args'
input(2)=' A=T'
input(3)=' /'
open(unit=10,status='scratch')
write(10,'(a)')(trim(input(i)),i=1,3)
!write(10,'(a)')(input(i),i=1,3) ! this fails too when lines are long
rewind(10)
read(10,nml=args,iostat=iostat,iomsg=iomsg)
if(iostat.ne.0) write(*,*)'from file iostat=',iostat,trim(iomsg)
read(input,nml=args,iostat=iostat,iomsg=iomsg)
if(iostat.ne.0) write(*,*)'from internal file iostat=',iostat,trim(iomsg)
end program main
