integer x(g),z,i,j
string s,s_str_(10)
data x/(5.:20.),(4.:-2.),(0.3:0.)/,z/.true./
common /com1/i,j
data s_str_/"string1", *"string2", "string3"/
$ no comment
y(z) = .not. re(x) .and. .not. x(0x10F,i,g(j)).gt.y .or. z .eq. k**3
100 call a
s = "sh"
im(x(1))=-2.1
if (b .and. (x .gt. a(i**k))) stop
return
do x=1,x(10,g(y+im(x(2)))),3
real list a
real i
data i/.314159e-31/,b/5E2/
1100 read (x,i=1,x(i)),z
goto 1000
cdr(a) = [0.1, 6., -3.2, 0.]
if (car(a).gt.0B.01.and.b.lt.x(i+2.)) then
integer z
read z,a(z)
goto z,(100,101,102,103,104,105)
else
logical l(x)
data l/.false.,.true.,.true./
do i=1,N,2
l(i) = x(i+g(i)).le.a
enddo
endif
call try_me_(x(u),y,l)
if (y(g(y(z-2)))+a(1,i)) 100,1000,10
y = .not. x(i)
1000 continue
enddo
end
subroutine try_me_(integer n,a(n))
do i=1,n
if (a(i) .gt. 0) a(i) = a(i) - i
enddo
return
end