这段fortran代码有什么问题？？？为什么老是出错？？？？？

program main
implicit none
character(len=1),dimension(1:7,1:7)::t
integer::i,j
do i=1,7
do j=1,7
   if(i==1.or.i==4.or.i==7.or.j==1.or.j==4.or.j==7)then
   t(i,j)='*'
   else
   t(i,j)=''
   endif
   enddo
enddo
write(*,'(7a1)')((t(i,j),j=1,7),i=1,7)
endprogram main