No me corre - ayuda
Publicado por Selene (2 intervenciones) el 05/06/2012 18:06:40
Lo estoy programando en Fortran 77, pero no me corre
program back
integer i
open(unit=21, file='selene.dat', status='old')
do 8 i=1,6
read(21,'(a1)') yes
if (yes.ne.'a')goto 9
8 continue
9 backspace
close(21)
stop
end
program back
integer i
open(unit=21, file='selene.dat', status='old')
do 8 i=1,6
read(21,'(a1)') yes
if (yes.ne.'a')goto 9
8 continue
9 backspace
close(21)
stop
end
Valora esta pregunta
0