Fortran取字符数组数据给另一个动态数组赋值失败，求大佬指导语句有没有问题

依恋。

定义的两个字节的字符一维变量ri31，定义动态数组ri，分配空间后赋值，再输出，我输入n为30，之后输出检查 数组ri 只有最后一个是正确的，其他的显示为文字，请问大家是赋值语句是不是有问题啊

依恋。

program main
implicit none
integer,parameter :: nx=700,ny=440,nt=4
integer::it,a(nt),b(nt),h(nt),aa(nt),i,j,k,xx1,xx2,yy1,yy2,xx(nt),yy(nt),nv,n
character nian(10)*4,yue(12)*2,ri30(30)*2,ri31(31)*2,ri28(28)*2,ri29(29)*2,shi(24)*2
character*2,allocatable :: ri(:)
data ri31/'01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20','21','22','23','24','25','26','27','28','29','30','31'/

  
read*,n
allocate(ri(n))
do i=1,n
ri(n)=ri31(n)
print*,ri31(i),ri(i)
end do

end program
图片居然那么不清晰，再传一次

依恋。

啊，已解决，错误太低级，打扰大家～