撰寫者:
Devil(璉璉)                           Devil.bbs@vlsi1.iie.ncku.edu.tw
--------------------------------------------------------------------------

雖然有點老套, 但確是常用的範例 (本範例經 PowerStation 4.0
測試成功)

\   倒斜線是 Microsoft Fortran 自定抑制跳行及歸位的格式
--- test.for ------------------------------------
program main

integer i,j

do i=1,10,1
   do j=1,i,1
      write(*,'(1x,a,\)') '*'
   end do
   write(*,*) 
end do

end
-------------------------------------------------
--- 執行結果 ------------------------------------
* 
* * 
* * * 
* * * * 
* * * * * 
* * * * * * 
* * * * * * * 
* * * * * * * * 
* * * * * * * * * 
* * * * * * * * * * 
-------------------------------------------------

輸出至檔案之修改範例:

修改後程式
--- test.f90 -----------------------------------------------------------
program main

integer i,j

open(unit=1,file='test.out',status='new')
do i=1,10,1
   do j=1,i,1
      write(1,'(1x,a,\)') '*'
   end do
   write(1,'(1x,a)') ''
end do
close(1,status='keep')

end
-----------------------------------------------------------------------