cpp 代码
- ! --- main() ---
- implicit none
- ! integer 到底是 2 or 4 個 bytes?
- ! Ans: > 32767, 所以是 4 個 bytes
- integer no
- no= 10
- do while (no .GT. 0)
- no= no + no + no
- print *, 'no= ', no
- end do
- print *, ' '
- print *, 'no= ', no
- end
- ! -----------------------------------------------