ex0603.f90

来自「Fortran 95程序设计【彭国伦】 Source_Code.rarFortr」· F90 代码 · 共 13 行

program ex0603
implicit none
  integer i,j

  do i=1, 3
    do j=1, 3
	  write(*, "(I2,I2)") i,j
	end do
	write(*,*) "another circle"
  end do

  stop
end