|
5#
楼主 |
发表于 2019-5-8 01:54:33
来自移动端
|
显示全部楼层
本帖最后由 weixing1531 于 2019-5-8 02:09 编辑
f2008好像可以直接实现
program main
integer, parameter :: ivp(*) = [1,2,3,4,5]
integer, allocatable :: iv(:)
integer :: i, ios, unit
iv = [integer ::]
open(newunit = unit, file='test.txt')
do
read(unit=unit,fmt=*,iostat=ios) i
if(ios /= 0) exit
iv = [iv,i]
enddo
close(unit)
if(all(iv==ivp)) print*, 'pass'
end program
|
|