Поэтому я пытаюсь написать этот код, который оценивает ряд S = 1 + x ^ 2 + x ^ 3 + ... x ^ 10 в Фортране 77.
Program prob_2
C Sum of series
implicit none
integer i
real S, x
S = 0.0
x = 0.99
open(8, file='output2.dat')
do i=1,10,1
S = S+(x**i)
end do
write(8, 100) S
100 format('Sum =', F15.4)
close(8)
Stop
end
Код выполняетсябез ошибок, но он не создает файл output2.dat
.Когда я меняю S и x на целые числа (делая x = 1), он создает файл.Что я делаю не так?