[問題] 出現看不懂的error
program main
implicit none
integer, parameter::a=10,b=20
integer c
integer count
character, allocatable::o(:)
character*200 d
integer e
integer error
integer i
open(a,file="call_price.txt",status="old")
count = 0
do while(.true.)
read(a,"(A200)",iostat=c)d
if(c/=0) exit
count=count+1
e=count
end do
write(*,*)count
allocate(o(e))
open(a,file="call_price.txt")
do i=1, e
read(*,*)o(i)
end do
stop
end
執行以後會出現
Error 84,only blank may be changed for a file that exists for a given program
想請教各位大師們，這是出現了甚麼問題呢? 感謝。ORZ
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.1.134
→
02/04 12:02, , 1F
02/04 12:02, 1F
→
02/04 12:02, , 2F
02/04 12:02, 2F
→
02/04 12:09, , 3F
02/04 12:09, 3F
→
02/04 12:10, , 4F
02/04 12:10, 4F
→
02/04 12:11, , 5F
02/04 12:11, 5F
→
02/04 12:24, , 6F
02/04 12:24, 6F
→
02/04 12:26, , 7F
02/04 12:26, 7F
→
02/04 12:26, , 8F
02/04 12:26, 8F