请问谁会用fortran在屏幕上输出一个菱形的程序，本人不会fortran但是又需要。谢谢那位高手搭救一下！

!输出对角线为2*m+1个“*”的菱形
!cvf6.6c通过
program main
implicit none
integer::i,m
!输出对角线为2*m+1个“*”的菱形
m=15
do i=0,m,1
write(*,"(<m-i>x,<2*i+1>('*'))")
end do
m=m-1
do i=m,0,-1
write(*,"(<m-i+1>x,<2*i+1>('*'))")
end do

stop
end