blob: aeb0717086d4e471c30a5cce5acc59c2d3365e07 [file] [log] [blame]
program membug
call bug1()
end program membug
subroutine unknown(x1,y1,ibig)
write(*,*)x1,y1,ibig
end subroutine unknown
subroutine bug1()
real arrayq(3000)
isize=0
ibig=-1
x2=0
10 continue
isize=isize+1
arrayq(isize)=x2
15 continue
call unknown(x1,y1,ibig)
if(ibig.eq.1)then
goto 10
elseif(ibig.eq.2)then
isize=max(1,isize-1)
goto 15
endif
end subroutine bug1