program test
INTEGER :: X,Y,I,J
X = 10
Y = 10
DO I = 1, X
DO J= 1, Y
IF(I==1 .OR. J==1 .OR. I==X .OR. J==X) THEN
WRITE(*,"(A)",ADVANCE="NO") "*"
ELSE
WRITE(*,"(A)",ADVANCE="NO") " "
END IF
END DO
WRITE(*,*)
END DO
end program test

非常感谢~