All pastes #580624 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-06-21 04:44 UTC
rendered paste body
Program Test
integer myvar
open(unit=20, file='test2.txt', status='old')
do i=1,26
read(20,*) myvar
if (myvar.eq.7) then
	write(*,*) i
elseif(myvar.eq.2) then
	write(*,*) i,i
	endif
enddo
stop
end