[BACK]Return to ex.mar CVS log [TXT] [DIR] Up to [Research Unix] / researchv10no / cmd / f2c
File:  [Research Unix] / researchv10no / cmd / f2c / ex.mar
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 17:21:35 2018 UTC (8 years, 1 month ago) by root
Branches: belllabs, MAIN
CVS tags: researchv10, HEAD
researchv10 Norman

I.f3�$PP	subroutine zork(i)
	integer i,j
	inquire(4,recl=i,nextrec=j)
	call foo(j)
	end
I1.f�[��55	data i/o'12'/
	j = o'13'
	call foo(i,j,b'101')
	end
I2.fDc��99	function foo(x)
	integer x
	foo = alog10(float(x))
	end
L.fԹ�Qjj	logical b(3)
	integer i
	b(1) = .false.
	b(2) = .true.
	b(3) = .false.
	write(*,*) (b(i), i = 1, 3)
	end
a.f]���33	integer i3(3)
	data i3/1,2,3/
	write(*,*) i3
	end
a1.f�<�8OO	subroutine goo(a,n)
	integer j, n
	double precision a(n)
	call foo(a(j))
	end
a2.f�h��.�	subroutine goo(a,n)
	integer j, n
	double precision a(n)
	common /zork/b
	double precision b(4), be(4), c(4), ce(4)
	equivalence (b(1), be(1)), (c(1),ce(1))
	logical init(2), init1
	real z(4)
	data init/.true., .true./, init1/.false./
	call foo(z(n), 23, init1, init, init(2), be(j), a(j), ce(j))
	end
b.fs����	block data
	common /zork/ a, b, c
	double precision a(2)
	integer b(2)
	logical c
	data a/1.d0, 2.d0/
	data b/3, 4/
	data c/.true./
	end
b1.f=��	�	call foo(o'1')
	end
c.f�
�yy	integer function c(n)
	character*1 a(4)
	data a/'a','b','c','d'/
	c = ichar(a(n)) + ichar(a(n+1))
	call zork(a(n))
	end
c1.f&x��BB	subroutine foo(i,c)
	character*1 c
	integer i
	i = ichar(c)
	end
c2.fo���bb	character*8 zork
	data zork/'abcdefhj'/
	n = ichar(zork(3:3))
	call foo(n,ichar(zork(4:4)))
	end
c3.f�9�
u��	character*1 c(10)
	data c/'a','b','c','d','e','f','g','h','i','j'/
	do 10 i = 1, 10
		if (ichar(c(i)) .lt. ichar('e')) call foo(i)
 10		continue
	end
c4.fW]�1CC	subroutine zork(a,b)
	character*8 c
	call foo(a,c)
	b = a(c)
	end
c5.fo]��OO	subroutine zork(a,b)
	external a
	character*8 c
	call foo(a,c)
	b = a(c)
	end
c6.f�I�
��	character*72 buffer
	read(*,'(A)') buffer
	j = 1
	do 10 i = 1, 72
		if (buffer(i:i) .ne. ' ') j = i
 10		continue
	write(*, '(A)') buffer(1:j)
	end
c7.fBO����	character*72 buffer
	read(*,'(A)') buffer
	j = 2
	do 10 i = 1, 72
		if (buffer(i:i) .ne. ' ') j = i+1
 10		continue
	write(*, '(A)') buffer(1:j-1)
	end
c8.f�V��	��	subroutine foo(i,j)
	character*72 b
	integer j(*), k, L(2)
	k = i
	L(2) = k
	call goo(b(1:i), b(2:i), b(1:i+1), b(1:j(2)), b(1:k), b(1:L(2)))
	end
c9.f�n�>
��	common /zork/ a, b, c
	double precision a(3), a1
	integer b(4), b1
	logical c(2), c1
	equivalence (a(3), a1), (b(2), b1), (c(1), c1)
	call foo(a,a1,b,b1,c,c1)
	end
ca.f���AA	integer function c(n,a)
	character*1 a(4)
	c = ichar(a(n))
	end
cb.f�i�n�	program main
�eCOMMON RVCN01,IVCN01,IVCN02,IACN11(20)
	ivcn01 = 3
	iacn11(13) = 23
	call zork
	end
	subroutine zork
�=COMMON //RVCN01
	rvcn01 = 4.2
	call zap
	end
	subroutine zap
�HCOMMON RVDN01,IVCN01,IVCN02
	ivcn02 = 77
	call zot
	end
	subroutine zot
�RCOMMON RVCN01,IVCN01,IVCN02,IACN11
	iacn11 = -49
	call last
	end
	subroutine last
�fCOMMON RVCN01,IVCN01,IVCN02,IACN11(20)
	write(*,*) rvcn01, ivcn01, ivcn02, iacn11(1), iacn11(13)
	end
cb1.f��R
�	program main
�eCOMMON RVCN01,IVCN01,IVCN02,IACN11(20)
	ivcn01 = 3
	iacn11(13) = 23
	call zork
	end
	subroutine last
��COMMON RVCN01,IVCN01,IVCN02,IACN11(20)
	equivalence (ivcn01,k)
	write(*,*) rvcn01, ivcn01, ivcn02, iacn11(1), iacn11(13),k
	end
cb2.f<��ph	program main
�TCOMMON RVCN01,IVCN01,IVCN02,IACN11(20)
	ivcn01 = 3
	iacn11(13) = 23
	call zork
	end
cb3.f����.	program main
�eCOMMON RVCN01,IVCN01,IVCN02,IACN11(20)
	ivcn01 = 3
	iacn11(13) = 23
	call zork
	end
	subroutine zork
�=COMMON //RVCN01
	rvcn01 = 4.2
	call zap
	end
	subroutine zap
�HCOMMON RVDN01,IVCN01,IVCN02
	ivcn02 = 77
	call zot
	end
	subroutine zot
�RCOMMON RVCN01,IVCN01,IVCN02,IACN11
	iacn11 = -49
	call last
	end
	subroutine last
�~COMMON RVCN01,IVCN01,IVCN02,IACN11(20)
	write(*,*) rvcn01, ivcn01, ivcn02, iacn11(1), iacn11(13), iacn11(15)
	end
	block data
�BCOMMON RVCN01,IVCN01,IVCN02,IACN11(20)
	data iacn11(15)/102/
	end
cd.fq=�;VV	subroutine zork(i)
	integer x
	integer i(x)
	common /com/ x
	call zork(i(3), x)
	end
cf.f�����$CHARACTER*10 FUNCTION CF716(IVD001)
�>IF (IVD001 - 2) 70010, 70020, 70030
70010 CF716 = 'FIRST AID'
�"RETURN
70020 CF716 = 'SECONDRATE'
�"RETURN
70030 CF716 = 'THIRDCLASS'
�RETURN
�END
cx2.fGA��jkj	complex c(5,3)
	c(3,2) = (2,2)
	call foo(c)
	end
	subroutine foo(c)
	complex c(5,3)
	c(2,2) = (1,1)
	end
d.fIJ�,ABA	subroutine foo(f)
	external f
	character*32 f
	call goo(f)
	end
d1.f�J�����	subroutine foo(f)
	external f
	character*32 f, x
	x = f(6)
	call goo(f, x)
	end
	subroutine goo(f,x)
	external f
	character*(*) f, x
	write(*,*) x, f(3)
	end
d2.f���V`a`	subroutine foo(j, k)
	integer j, k
	real r
	do 10 r = goo(min(j,k)), 10
 10		write(*,*) r
	end
d3.f!���FGF	character*3 zot
	data r/4.2/
	data zot/'abc'/
	call foo(r, zot)
	end
de.f�V� F	�>SUBROUTINE SN707(IVD001,IVD002,IVD003,I2D001,I2D002,IVD004)
C
�;DIMENSION I2D001(IVD002/3:3,1:5),I2D002(1:2,1:IVD003**2)
C
�?IF (IVD001 - 1) 70010, 70010, 70020
70010 IVD004 = I2D001(1,5)
�4RETURN
70020 IVD004 = I2D002(1,4)
	call foo(ivd003)
�RETURN
�END
doo.fB��!s+,+	subroutine doo(n,x)
	read(7,rec=n) x
	end
e.f@n�"����	subroutine comtst
	double precision d, x(5)
	integer y, z, z1
	equivalence (x(3),y)
	integer*2 i2(8), i21, i22, i23
	integer i4, i41, i42
	equivalence (i2(4),d)
	common /xyz/ a,b
	common /pqr/ c, r1
	common /abc/ e
	double precision a(3), c(4), d1(5),� d2, e(3)
	real b(2), r1(5)
	equivalence (i21,b), (i22,r), (i4,i2(3)), (i41,a(2)),(i42,e(2))
	equivalence (i23,i2(3)), (z,z1), (d2,d1(3))
c	automatic x, y
	call foo(x,y,i2,d,a(2),b(2),c(2),d,e(2),i21,i22,i2(2),d1(2))
	end
e1.fc�#��N�CHARACTER*1  IFMT1(20)
�CHARACTER*20 IFMT1C
�EQUIVALENCE (IFMT1(1), IFMT1C)
�DATA IFMT1( 1) /'('/
�DATA IFMT1( 2) /'1'/
�DATA IFMT1( 3) /'A'/
�DATA IFMT1( 4) /'1'/
�DATA IFMT1( 5) /','/
�DATA IFMT1( 6) /'5'/
�DATA IFMT1( 7) /'X'/
�DATA IFMT1( 8) /','/
�DATA IFMT1( 9) /'2'/
�DATA IFMT1(10) /'A'/
�DATA IFMT1(11) /'1'/
�DATA IFMT1(12) /','/
�DATA IFMT1(13) /' '/
�DATA IFMT1(14) /' '/
�DATA IFMT1(15) /'X'/
�DATA IFMT1(16) /','/
�DATA IFMT1(17) /'2'/
�DATA IFMT1(18) /'A'/
�DATA IFMT1(19) /'1'/
�DATA IFMT1(20) /')'/
�WRITE(6, IFMT1C)
�END
e2.f�f�$5�q"	common /abc/ a
	equivalence(a,b)
�CHARACTER*1  IFMT1(20)
�CHARACTER*20 IFMT1C
�EQUIVALENCE (IFMT1(1), IFMT1C)
�DATA IFMT1( 1) /'('/
�DATA IFMT1( 2) /'1'/
�DATA IFMT1( 3) /'A'/
�DATA IFMT1( 4) /'1'/
�DATA IFMT1( 5) /','/
�DATA IFMT1( 6) /'5'/
�DATA IFMT1( 7) /'X'/
�DATA IFMT1( 8) /','/
�DATA IFMT1( 9) /'2'/
�DATA IFMT1(10) /'A'/
�DATA IFMT1(11) /'1'/
�DATA IFMT1(12) /','/
�DATA IFMT1(13) /' '/
�DATA IFMT1(14) /' '/
�DATA IFMT1(15) /'X'/
�DATA IFMT1(16) /','/
�DATA IFMT1(17) /'2'/
�DATA IFMT1(18) /'A'/
�DATA IFMT1(19) /'1'/
�DATA IFMT1(20) /')'/
�WRITE(6, IFMT1C)
�END
e3.f���%��	subroutine comtst
	double precision d, x(5)
	integer y, z, z1
	equivalence (x(3),y)
	integer*2 i2(8), i21, i22, i23
	integer i4, i41, i42
	equivalence (i2(4),d)
	common /xyz/ a,b
	common /pqr/ c, r1
	common /abc/ e
	double precision a(3), c(4), d1(5),� d2, e(3)
	real b(2), r1(5)
	equivalence (i21,b), (i22,r), (i4,i2(3)), (i41,a(2)),(i42,e(2))
	equivalence (i23,i2(3)), (z,z1), (d2,d1(3))
	data r/1.2/, i4/4321/, i2(7),i2(8)/7,8/, d2/3.4/, d1(5)/5.6/
c	automatic x, y
	call foo(x,y,i2,d,a(2),b(2),c(2),d ,e(2),i21,i22,i2(2),d1(2))
	end
e4.f�K�&	 ���	common /zork/ a, b
	double precision a(10), ae, c(4), ce
	integer b(3), be
	equivalence (a(3),ae), (b(2), be), (c(3), ce)
	call foo(ae, be, ce)
	end
	subroutine foo(a,b,c)
	double precision a, c
	integer b
	common /zork/ ac, bc
	double precision ac(10�), ae
	integer bc(3), be, j, k
	equivalence (ac(5),ae), (bc(3), be)
	m = 3
	j = be + bc(1)
	k = j + 3
	call zoo(a,b,c,ae,be,j,k,m)
	end
ec.fó�'�!���	subroutine gulp
	common /abc/x,y
	double precision x(4)
	integer y(3)
	double precision xe
	integer ye
	equivalence (xe, y(2)), (ye, x(2))
	call foo(xe, ye)
	end
f.f�H�({"/0/	double precision x
	x = 0.3
	call foo(x)
	end
f0.fF[�)�"|uY	write(6,90001)
90001 FORMAT(' ','\\','\\','\\','\\','xy\\','\\','\\','\\','\\','\\','\\
�D1','\\','\\','\\','\\','\\','\\','\\','\\','\\','\\','\\','\\','\\'
�D2,'\\','\\','\\','\\','\\','\\','\\','\\','\\','\\','\\','\\','\\',
�C3'\\','\\','\\','\\','\\','\\','\\','\\','\\','\\','\\','\\','\\',
�D4'\\','\\','\\','\\','\\','\\','\\','\\','\\','\\','\\','End')
	end
f1.f9��*h$��V	write(6,90001)
90001 FORMAT(' Here is a very long string which should be broken into
�C1several pieces while it is being printed out.  The pieces will be
�H2different, depending on whether or not the -A flag is in effect')
	end
f2.f�S�+t%���	integer i,j
 10	format(' Hello, world!')
 20	format(' Hello again.')
 30	format(' goodbye!')
	assign 10 to i
	assign 20 to j
	write(6,i)
	write(6,j)
	assign 30 to i
	write(6,i)
	end
f3.f,V�,P&$%$	write(6,'(" Hello, world!")')
	end
foo.f}2�-�&+,+	integer x(2)
	data (x(i),i=1,2)/1,2/
	end
fp1.f�
�.�&$%$	subroutine foo(x)
	x = x + .3
	end
g.f4��/2'���	subroutine foo(n)
	if (n .le. 3) then
		assign 10 to i
	else
		assign 20 to i
		end if
	go to i, (10,20)
 10	write(*,*) 'got 10'
	go to 999
 20	write(*,*) 'to 20'
 999	end
g1.f��0(���	subroutine foo(n)
	go to 2
1	go to i, (10,20)
 10	write(*,*) 'got 10'
	go to 999
 20	write(*,*) 'to 20'
	go to 999
2	if (n .le. 3) then
		assign 10 to i
	else
		assign 20 to i
		end if
	go to 1
 999	end
goo.f�@�1�(RSR	logical function zork(i,j,k)
	zork = i .eq. j .or. j .eq. k .neqv. j .lt. k
	end
h.f���2l)ccW	character*18 h
	h = '('' Hello, world!'')'
	write(6,h)
c	write(6,'('' Hello, world!'')�')
	end
h0.f5��3�)DED	write(6,10)
 10	format(' Hello\\, world! "Can''t complain."')
	end
h1.f�
�4\*=>=	subroutine foo(a,b)
	character *6 a, b
	write(6, a//b)
	end
h2.fn�5�*WXW	integer zot(10)
	data zot/1h(,1h6,1hh,1h ,1hh,1he,1hl,1hl,1ho,1h)/
	write(6,zot)
	end
h3.f7W�6:+'('	write(6,10)
 10	format(6h hello)
	end
h4.fBW�7�+=>=	assign 10 to i
	write(6,i)
10	format(' Hello, world!')
	end
i.fYN�8�+���	subroutine foo(i,j,c)
	character*1 c(4), d
	i = ichar(c(3))
	j = ichar(d(1))
	j = ichar(c(1)) + ichar(c(2)) + ichar('B')
	c(2) = char(j)
	end
i2.f$�9�,=>=	subroutine foo(j)
	character*2 d
	j = ichar(d(2)(2:2))
	end
l.f�<�:�,��X	subroutine foo(lvcomp, lvn001, lpn002, lpn003)
	logical lvcomp, LVN001, lpn002, lpn003
�LVN001 = .TRUE.
�7LVCOMP = LVN001.EQV.LPN002.AND..TRUE..NEQV.LPN003
	end
m.f�@�;�-	data i/5/
	j = i + o'2'
	end
m1.f�j�<.`a`	write (*,*) 'Hello, world'
	write (6,100)
100	format ("I/O, I/O, it's off to work we go")
	end
n.fYD�=�.OPO	real for, x, sin
	external sin
	x = 1. + for(2.d0) + sin(3)
	call foo(x)
	end
o.fr��>/JKJ	open(4,file='/dev/stderr',blank='null')
	write(4,*) 'Hello, world!'
	end
p.fb�?s/���	implicit double precision (a-h,o-z)
	real zork
	parameter(zap=3.4d0, zot=1.2, zork=6.1)
	call foo(zap, zot, dble(zot), zork)
	end
p1.fk=�@0;<;	parameter (p1 = 0.1, dp1 = 0.1d0)
	call foo(p1, dp1)
	end
p2.f�i�A{0���	implicit double precision (a-z)
	parameter(one=1.0, two=2.0, three=3.0)
	call foo(one, two, three)
	end
	subroutine foo(a,b,c)
	real a,b,c
	end
r.f�2�B11TUT	read(5,10,end=20,iostat=j) i
 10	format(i6)
	write(*,*) 'got i, j= ', i, j
 20	end
r1.f�4�C�1�	read(5,10,end=20,iostat=j,err=30) i
 10	format(i6)
	call gotij(i,j)
	goto 40
 20	call gotend
	goto 40
 30	call goterr
 40	end
r2.f'5�DN2sts	read(5,10,end=20,err=30) i
 10	format(i6)
	call goti(i)
	goto 40
 20	call gotend
	goto 40
 30	call goterr
 40	end
r3.f9`�E�2KLK	read(5,10,end=20) i
 10	format(i6)
	write(*,*) 'got i, j= ', i, j
 20	end
r4.f[m�FV3���	character*10 zot(2)
	integer i, j, k, l, m
	data zot/' 1234 5678', ' -123 -456'/
	data i/1/
	read(zot(i),10) l, m
	read(zot(2),10) j, k
 10	format(2i5)
	write(*,*) j, k, l, m
	end
r5.fn�G04���	call foo('(2i5)')
	end
	subroutine foo(s)
	character*(*)s
	character*10 zot
	integer l, m
	data zot/' 1234 5678'/
	read(zot,s) l, m
	write(*,*) l, m
	end
r6.fQ��H�4���	subroutine foo(s,l,m)
	character*(*)s
	character*10 zot, s1
	integer l, m
	data zot/' 1234 5678'/
	data s1/'(2i5)'/
	read(s1,s) l, m
	end
s.f2�I�5scL	double precision function foo(x)
	double precision x
	double precision y,z
�1SECH(Y)=2.*DEXP(-DABS(Y))/(1.+DEXP(-2.*DABS(Y)))
�Foo=(SECH(  10.*(X-0.2D0)))**2
� *   +(SECH( 100.*(X-0.4D0)))**4
� *   +(SECH(1000.*(X-0.6D0)))**6
�z=(SECH(  10.*(X-0.2D0)))**2
� *   +(SECH( 100.*(X-0.4D0)))**4
�4*   +(SECH(1000.*(X-0.6D0)))**6
	foo = foo + z
	end
s1.f��J'7

	stop 0
	end
s2.f�e�KY7&'&	i(ii) = ii
	j = 4
	k = i(j + 3)
	end
sf.f{�L�7BCB	integer i, j
	data j/4/
	i = 3
	x(i) = i*i
	write(*,*) x(j)
	end
sf1.fs��M8KLK	integer i, j
	x(i) = i*i
	y(i) = i + 1
	j = 3
	write(*,*) x(j), y(j)
	end
sf2.fȵ�N{8PQP
	integer i, j
	data j/3/
	x(i) = i*i
	y(i) = i + 1
	write(*,*) x(j), y(j)
	end
w.f�6�O�8UVU	subroutine w(x,n)
	real x(*)
	integer i,n
	write(*,*,end=20) (x(i),i,i=1,n)
 20	end
x.f�s�Pj9YZY	subroutine foo(atan,x,y)
	double precision x, y
	integer atan
	x = atan + datan(y)
	end
b2.f2Q�Q�9�	subroutine frog
	common /gosh/ x
	double precision x(2), w(2)
	integer y, v
	equivalence (v, w(2))
	data y/4/, v/5/
	call poly(x,y)
	end
	block data grog
	common /gosh/ x
	double precision x(2)
	integer z
	equivalence (z,x(1))
	data z/23/, x(2)/2.2/
	end
b3.f���R;��	subroutine zap(abc,def, klm, nop)
	if (abc .le. def) then
	if (klm .ge. nop) then
	if (abc + def .le. 0) then
	call foo('some string long enough to cause trouble with formatting
& of line breaks because it is likely to run over two or three lines
& be�cause it is amazingly long',
&a, b, c, d, e, f, abc, def, klm, nop, 'another string argument')
	call goo(a, b, c, d, e, f, abc, def, klm, nop, g, h, ijk, lmn,
&qrs,tuv,wxy,z,a,b,c,d,e,f,g,h)
	endif
	endif
	endif
	end
bc.fZ�S	=HH	subroutine sub1
	common x(12)
	end
	subroutine sub2
	common x(12)
	end
cd1.f=��Tv=((	complex x
	data x/1/
	call foo(x)
	end
cd2.f��U�=<<	character*15 h
	data h/'hello, world!'/
	write(*,*) h
	end
cen.f���V$>jj	integer function ifunc(n)
	complex cfunc, c
	ifunc = n + 1
	return
	entry cfunc(c,x)
	cfunc = c + x
	end
cen1.f���W�>��	double complex function zfunc(n)
	double complex zfunc
	complex cfunc, c
	zfunc = cmplx(n + 1, n-1)
	return
	entry cfunc(c,x)
	cfunc = c + x
	end
cen2.f�Xk?��	complex function zfunc(n)
	complex zfunc
	complex cfunc, c
	zfunc = cmplx(n + 1, n-1)
	return
	entry cfunc(c,x)
	cfunc = c + x
	end
cen3.f�9�Y@��	 complex function zfunc(n)
	 complex zfunc
	complex cfunc, c
	zfunc = cmplx(n + 1, n-1)
	return
	entry cfunc(c,x)
	cfunc = c + x
	end
cen4.f<�Z�@vv	character*10 function foo(n)
	character*10 goo
	foo = 'something'
	return
	entry goo(n)
	goo = 'something else'
	end
cf0.f�z�[\A	call foo('abc')
	end
cf1.f�}�\�A>>	character*4 function zork(n)
	zork = 'something'
	n = 4
	end
cf2.f���]�Ar�%CHARACTER*(*) FUNCTION CF717(CVD001)
�CHARACTER*(*) CVD001
�CF717 = CVD001
�RETURN
�END
cf3.faP�^�B��	subroutine gulp(cf1, thing)
	character*(*) cf1, cf2, thing
	external cf1, cf2
	call foo(cf1, thing)
	call goo(cf2, thing)
	end
cf4.f
l�_&C��$CHARACTER*10 FUNCTION CF716(IVD001)
�>IF (IVD001 - 2) 70010, 70020, 70030
70010 CF716 = 'FIRST AID'
�"RETURN
70020 CF716 = 'SECONDRATE'
�"RETURN
70030 CF716 = 'THIRDCLASS'
�RETURN
�END
cf5.f{�`
D��	character*10 function recf(n,f)
	character*10 f
	external f
	if (n .le. 0) then
		recf = 'abcdefghik'
	else
		recf = f(0,recf)
		endif
	end
cf6.fݾ�a�D99	character*(*) function cf(n)
	call foo(cf,'abc',n)
	end
coo.fh��bE22	complex function coo(x,y)
	coo = cmplx(x,y)
	end
cx.f�S�ctEff	complex c(5)
	c(3) = (2,2)
	call foo(c,2)
	end
	subroutine foo(c,n)
	complex c(5)
	c(n) = (1,1)
	end
cx1.f�e�d�E^^	subroutine foo(c,n)
	complex c(n,n)
	c(n,n) = (1,1)
	c(1,n-1) = (2,2)
	c(n-3,2) = (3,3)
	end
cx3.f�}�e�F11	complex function cx(r)
	cx = r + 1
	return
	end
e5.f�8�f�Fee	subroutine snark
	common /abc/ x
	double precision x(2)
	integer y(3)
	equivalence (x(1),y(2))
	end
e6.f�M�gbGee	subroutine snark
	common /abc/ x
	double precision x(2)
	integer y(5)
	equivalence (x(1),y(1))
	end
ed.f���h�G��	character*10 abc*5, def(3)
	equivalence (def(2),abc)
	double precision x(3)
	integer y
	equivalence (y,x(2))
	data x(1),y/ 1.2, 34/
	data def(1),abc,def(3)/'it''s howdy', 'doody', 'time'/
	call foo(x,y)
	end
en.f���i�H��	integer function ifunc(n)
	character*(*) msg
	complex cfunc, c
	ifunc = n + 1
	return
	entry rfunc(x)
	rfunc = x + 1.
	return
	entry ifunc1(msg)
	write(*,*) 'ifunc1 has msg = ', msg
	ifunc1 = 42
	return
	entry cfunc(c,x)
	cfunc = c + x
	end
	program g�ulp
	character*12 msg
	complex c, c1, cfunc
	data msg/'hello, there'/, c/(5.6,7.8)/
	i = ifunc(23)
	x = rfunc(24.)
	i1 = ifunc1(msg)
	write(*,*) i, x, i1
	c1 = cfunc(c, 2.5)
	write(*,*) c1
	end
en0.f:�j�J��	integer function ifunc(n)
	character*(*) msg
	ifunc = n + 1
	return
	entry rfunc(x)
	rfunc = x + 1.
	return
	entry ifunc1(msg)
	write(*,*) 'ifunc1 has msg = ', msg
	ifunc1 = 42
	end
en1.ff�k�Kv�	integer function ifunc(n)
	character*(*) msg
	x = n + .5
	ifunc = x*x + 1
	return
c	should be illegal -- x already referenced
	entry rfunc(x)
	rfunc = x + 1.
	return
	entry ifunc1(msg)
	write(*,*) 'ifunc1 has msg = ', msg
	ifunc1 = 42
	end
	program guzlp
	character*12 msg
	data msg/'hello, there'/
	i = ifunc(23)
	x = rfunc(24.)
	i1 = ifunc1(msg)
	write(*,*) i, x, i1
	end
en2.f�l>MM�	integer function ifunc(n)
	character*(*) msg
	stf(x) = x + 1
	ifunc = stf(n)
	return
	entry rfunc(x)
	rfunc = x + 1.
	return
	entry ifunc1(msg)
	write(*,*) 'ifunc1 has msg = ', msg
	ifunc1 = 42
	end
	program gulp
	character*12 msg
	data msg/'hello, thQere'/
	i = ifunc(23)
	x = rfunc(24.)
	i1 = ifunc1(msg)
	write(*,*) i, x, i1
	end
en3.f�i�m�N8� SUBROUTINE SN510(IVD001,IVD002)
�INTEGER I2D001(2,2)
�COMMON IVC001, IVC002, IVC003
�DO 70010 IVN001 = 1, 3
�#IVD001 = IVD001 + 1
70010 CONTINUE
�IVD002 = IVD001
�RETURN
�ENTRY EN851(IVD003,IVD004)
�IVD004 = 3*IVD003 + 7
�RETURN
�ENTRY EN852(IVD005)
�IVD005 = IVD005 + 100
�RETURN
�ENTRY EN853(IVD006,IVD007)
�IVD007 = 5*(IVD006 + 2) - 16
�RETURN
�"ENTRY EN854(IVD008,IVD009,IVD010)
�#IVD010 = 4*(IVD008 - 2*IVD009) + 5
�RETURN
�,ENTRY EN855(IVD011, IVD012, IVD013, IVD014)
�$IVD014 = IVD013*(2*IVD011 + IVD012)
�RETURN
�"ENTRY EN856(IVD015,I2D001,IVD016)
�IVD016 = 0
�DO 70020 IVN001 = 1, IVD015
�JDO 70020 IVN002 = 1, IVD015
70020 IVD016 = IVD016 + I2D001(IVN001,IVN002)
�RETURN
�"ENTRY EN857(RVD017,RVD018,RFD001)
�RVD018 = RFD001(RVD017)
�RETURN
�ENTRY EN858(IVD019,*,*)
�RETURN IVD019
�ENTRY EN859( )
�IVC001 = IVC002 + IVC003
�RETURN
�ENTRY EN860
�IVC003 = IVC001 + IVC002
�RETURN
�END
en4.fl�n�R��FUNCTION RF513(RVD001)
�RF513 = RVD001**2
�RETURN
�ENTRY EF852(RVD002)
�EF852 = 3*RVD002
�RETURN
�END
en5.f.r�o1S��GSUBROUTINE SN510(IVD001)
	entry snark(ivd001,ifcn)
	ivd001 = 3
	return
�ENTRY EN857(IVD001, IFCN)
�IVD001 = IFCN(IVD001)
�RETURN
�END
en6.f�q�p�S��-SUBROUTINE SN510(IVD001)
	ivd001 = 3
	return
�ENTRY EN857(IVD001, IFCN)
�IVD001 = IFCN(IVD001)
�RETURN
�END
if.f�u�q�T++	integer function foo(n)
	foo = n + 1
	end
m1t.fK�r�T��#SUBROUTINE M1TIME( CLOCK, PRTOPT )
�INTEGER�CLOCK, PRTOPT
�CHARACTER*4�LMEAN ,�LAST
�DATA�LMEAN/'Mean'/, LAST/'Last'/

�*call foo(clock, prtopt, lmean, last)
	end
zoo.f<�s�U��BLOCK DATA
C�*
C�*,  DECLARATION OF VARIABLES IN COMMON BLOCKS
�DOUBLE PRECISION AXVD
�
COMPLEX AXVC
�
LOGICAL AXVB
�CHARACTER*6 A6XVK, B6XVK
C�*
�1COMMON /BLK9/ AXVS, BXVS, IXVI, AXVD, AXVC, AXVB
�COMMON /BLK7/ A6XVK, B6XVK
�>DATA AXVS, BXVS, IXVI, AXVD, AXVC, AXVB /34.25E-1, 43.23, 21,
�1�!1.23456, (234.23, 34.9), .TRUE./
�'DATA A6XVK, B6XVK /'ABCDE', 'FGHIJK'/
C�*
�END
z1.f�A�t_Wcc	double precision function z(a,b)
	double precision a, b, zabs
	integer unused
	z = zabs(a,b)
	end
z2.fB�u�Wkk	double precision function z(a,b)
	double precision a, b, zabs
	integer unused
	z = zabs(dcmplx(a,b))
	end
a3.f��vwX��	subroutine zot(x)
	double precision a, b, c, x
	a = x
	b = x + .1
	c = x + .2
	x = (b/c)**2 - 1.0
	if ((a/c)**2-1.0) 5,6,7
 5	call zip
 6	call zap
 7	end
boo.f�f6w7Y	subroutine joke(ch)
	common /zork/ x
	character*1 x(256), ch, y
	integer jchar
	jchar(y) = ichar(y)
	call goo(jchar(ch))
	end
boo00.f}_5x�Y4�	common /zot/ a, b, c, d, e, f
	real a, c, e, x(7)
	double precision b, d, f, y(4)
	equivalence (a,x(1)), (b,y(1))
	integer i
	do 10 i = 1, 7, 3
 10		x(i) = i
	y(1) = 4
	y(4) = 5
	d = -3
	call foo
	a = a + 10
	b = b + 10
	c = c +10
	d = d + 10
	e = e +� 10
	f = f + 10
	call foo
	end

	subroutine foo
	common /zot/ a, b, c, d, e, f
	real a, c, e, x(7)
	double precision b, d, f, y(4)
	equivalence (a,x(1)), (b,y(1))
	integer i
	write(*,*) (x(i), i = 1,7,3), (y(i), i = 1, 4, 3)
	call goo(b,d)
	end

	subro<utine goo(b,d)
	double precision b, d
	write(*,*) b, d
	end
boo01.fu�5y6\r	common /zork/ i,d,j,e
�integer*2 i, j
�double precision d, e
�call foo(i,d,j,e)
�end
boo1.f�e6z�\��	subroutine joke(ch,i)
	common /zork/ x
	character*1 x(256), ch, y
	integer i, jchar
	jchar(y) = ichar(y)
	x(jchar(ch)) = char(i)
	end
boo10.fE�6{e]""	function f(x)
	f = log10(x)
	end
boo11.f�C7|�]aa	subroutine goo(n)
	common /zork/ w, x
	character*1 w(4), x(2)
	if (x(n) .eq. 'X') call zoo
	end
boo12.fnn8}2^l�	subroutine boo12
	common /zork/ a, b, struct
	character*80 a, b, struct,d
	character*40 e(2), f
	equivalence(b,d), (e(2),f)
	write(f,10) f
	write(b,10) a
	write(struct,10) a
 10	format(a80)
	write(d,10) d
	struct = b
	write(b(10:30),10) b(12:32)
	writpe(d(15:25),10) d(20:30)
	write(e(2),f)
	write(f(30:40), f(50:60))
	if (f(4:4) .lt. b(5:5)) f(6:6) = d(7:7)
	end
boo12a.f{�7~�_zz	subroutine boo12a(n)
	common /zork/ a, b, struct
	character*80 a, b, struct,d
	equivalence(b,d)
	call foo(d(20:30))
	end
boo13.f-�7c`��	subroutine boo13
	common /zork/ a, b
	character a*3, b(4), c(4), d(8), e(4)
	equivalence (b(1),c(1)), (d(5),e(1))
	if (e(2) .eq. 'z') call grok(e(2))
	if (b(2) .eq. 'x') call grok(b(2))
	if (c(3) .eq. 'y') call grok(c(3))
	end
boo13b.f/
8�laOO	character*20 x
	x(7:7) = 'a'
	if (x(8:8) .eq. x(9:9)) call goo(x(10:10))
	end
boo14.f��7��a�	�	subroutine zot(x)
	character*1 x(132)
	x(1) = char(0)
	x(2) = char(1)
	x(3) = char(2)
	x(4) = char(3)
	x(5) = char(4)
	x(6) = char(5)
	x(7) = char(6)
	x(8) = char(7)
	x(9) = char(8)
	x(10) = char(9)
	x(11) = char(10)
	x(12) = char(11)
	x(13) = char(12�)
	x(14) = char(13)
	x(15) = char(14)
	x(16) = char(15)
	x(17) = char(16)
	x(18) = char(17)
	x(19) = char(18)
	x(20) = char(19)
	x(21) = char(20)
	x(22) = char(21)
	x(23) = char(22)
	x(24) = char(23)
	x(25) = char(24)
	x(26) = char(25)
	x(27) = char(26�)
	x(28) = char(27)
	x(29) = char(28)
	x(30) = char(29)
	x(31) = char(30)
	x(32) = char(31)
	x(33) = char(32)
	x(34) = char(33)
	x(35) = char(34)
	x(36) = char(35)
	x(37) = char(36)
	x(38) = char(37)
	x(39) = char(38)
	x(40) = char(39)
	x(41) = char(40�)
	x(42) = char(41)
	x(43) = char(42)
	x(44) = char(43)
	x(45) = char(44)
	x(46) = char(45)
	x(47) = char(46)
	x(48) = char(47)
	x(49) = char(48)
	x(50) = char(49)
	x(51) = char(50)
	x(52) = char(51)
	x(53) = char(52)
	x(54) = char(53)
	x(55) = char(54�)
	x(56) = char(55)
	x(57) = char(56)
	x(58) = char(57)
	x(59) = char(58)
	x(60) = char(59)
	x(61) = char(60)
	x(62) = char(61)
	x(63) = char(62)
	x(64) = char(63)
	x(65) = char(64)
	x(66) = char(65)
	x(67) = char(66)
	x(68) = char(67)
	x(69) = char(68�)
	x(70) = char(69)
	x(71) = char(70)
	x(72) = char(71)
	x(73) = char(72)
	x(74) = char(73)
	x(75) = char(74)
	x(76) = char(75)
	x(77) = char(76)
	x(78) = char(77)
	x(79) = char(78)
	x(80) = char(79)
	x(81) = char(80)
	x(82) = char(81)
	x(83) = char(82�)
	x(84) = char(83)
	x(85) = char(84)
	x(86) = char(85)
	x(87) = char(86)
	x(88) = char(87)
	x(89) = char(88)
	x(90) = char(89)
	x(91) = char(90)
	x(92) = char(91)
	x(93) = char(92)
	x(94) = char(93)
	x(95) = char(94)
	x(96) = char(95)
	x(97) = char(96�)
	x(98) = char(97)
	x(99) = char(98)
	x(100) = char(99)
	x(101) = char(100)
	x(102) = char(101)
	x(103) = char(102)
	x(104) = char(103)
	x(105) = char(104)
	x(106) = char(105)
	x(107) = char(106)
	x(108) = char(107)
	x(109) = char(108)
	x(110) = char(�109)
	x(111) = char(110)
	x(112) = char(111)
	x(113) = char(112)
	x(114) = char(113)
	x(115) = char(114)
	x(116) = char(115)
	x(117) = char(116)
	x(118) = char(117)
	x(119) = char(118)
	x(120) = char(119)
	x(121) = char(120)
	x(122) = char(121)
	x(123)� = char(122)
	x(124) = char(123)
	x(125) = char(124)
	x(126) = char(125)
	x(127) = char(126)
	x(128) = char(127)
	x(129) = char(128)
	x(130) = char(129)
	x(131) = char(130)
	x(132) = char(131)
	end
boo15.f�p8��kNN	subroutine foo
	character*5 zot
	data zot/'abcde'/
	call glop(zot(3:5))
	end
boo16.f'm8�#l��!subroutine dlu (na,a,nb,b,error)
�0implicit integer(i-n),double precision(a-h,o-z)
�dimension a(na,na,1),b(na,1)
�integer error
�9entry dlu1f (na,a,nb,b,error)
	call goo(na,a,nb,b,error)
�end
boo17.f�8�m..10	format(' hello, world!')
	write(6,10)
	end
boo18.f�q8�emY�	subroutine boo12
	common /zork/ a, b, struct
	integer a(10), b(10), struct,d(5)
	integer e(20), f(10)
	equivalence(b(1),d(1)), (e(8),f(1))
	write(*,f) f
	write(*,b) a
	write(struct,10) a
 10	format(a80)
	write(*,d) d
	struct = b(4)
	write(*,b(5)) b(7)]
	write(*,d(3)) d(3)
	write(*,e(2))
	write(f(4), f(8))
	if (f(4) .lt. b(5)) f(6) = d(7)
	end
boo1a.f��6��nkk	subroutine joke(ch,i)
	common /zork/ x
	character*1 x(256), ch, y
	integer i
	x(ichar(ch)) = char(i)
	end
boo2.f0{6�toFF	subroutine joke(ch,i)
	character*1 ch
	integer i
	i = ichar(ch)
	end
boo3.f�q6��oww	subroutine joke(ch,i,ch)
	character*1 ch
	common /zork/ x
	integer x(256), y
	integer i, jchar
	x(ichar(ch)) = i
	end
boo3a.f1}6�{p��	subroutine joke(ch,i,ch)
	character*1 ch(10,20)
	common /zork/ x
	integer x(256), y
	integer i, jchar
	x(ichar(ch(4,5))) = i
	end
boo4.fŁ6�#qNN	subroutine zork(a,b)
	character*1 a,b,c,d(4)
	c = a
	d(3) = c
	b = d(2)
	end
boo5.f�u6��q@@	subroutine boo5(a,b)
	integer a
	character*1 b
	a = a + b
	end
boo6.f�6��qJJ	subroutine george(a,b)
	character*11 a
	integer b
	a(b:b) = char(b)
	end
boo7.fA�6�jr��	subroutine bop(n,L)
	logical L
	integer i, nok, notusd
	idnt(notusd) = notusd

	if (L) then
		do 10 i = 1, n
			if (nok(i) .gt. 0) goto 20
 10			continue
 20			continue
		else
			call glop(idnt(3))
		endif
	end

boo8.f��6�dszz	subroutine bop
	integer notusd, i, x(3)
	data (x(i),i=3,1,-1)/1,2,3/
	idnt(notusd) = notusd
	call glop(idnt(3),x,i)
	end
boo9.fF�6�tDD	subroutine zot(a,b)
	character*1 a, b
	if (a .lt. b) call foo
	end
boo9a.f�;7�ltLL	subroutine zot(a,b)
	character*1 a, b
	if (a(1) .lt. b(2,3)) call foo
	end
boo9b.f�k7��t��	subroutine zot(a,b,c)
	character*1 a(3), b*8,c
	if (a(2) .lt. b(2:2)) call foo
	b(1:1) = a(3)
	b(3:3) = a(4)
	b(4:4) = char(34)
	b(5:5) = char(ichar(b(6:6)) + 3)
	b(6:6) = c(3)
	if (a(3) .gt. c(4)) call goo
	b(7:7) = char(ifunc(4))
	end
boo19.fƁ9��u>>	subroutine boo19(n,s)
	character*20 s
	call foo(s(n:n))
	end
d4.fDB�Svoo	integer x(10)
	double precision y(3)
	equivalence (x(5),y(1))
	data x(4)/'ab'/, y(1)/1.2/
	call foo(x,y)
	end
d5.fUEB��vqq	integer x(10)
	double precision y(3)
	equivalence (x(5),y(1))
	data x(4)/'abcd'/, y(1)/1.2/
	call foo(x,y)
	end
d6.fHB�}w~~	character x(20)
	character*4 y
	character*5 z
	equivalence (y,x(4)), (z,x(8))
	data y/'abcd'/, z/'wxyz'/
	call foo(y,z)
	end
d7.f_B� x��	integer i, j(2)
	data i/'ab'/, j/'cd','ef'/
	call foo(i,j)
	end
	subroutine foo(i,j)
	integer i, j(2)
	write(*,10) i, j
 10	format(' i = ',a4,', j = ',a4,', ',a4)
	end
d8.fIOB��xGG	integer x(10)
	data x(1)/37/, x(2)/'abc'/, x(3)/42/
	call foo(x)
	end
cb4.f�DX�Zy0�	subroutine foo
	common /zork/ a,b
	common /zorki/c, d
	common /zorke/ e, f
	common /zorkei/ g, h
	double precision a, c, e, g, i, k
	integer b, d, f, fe(2), h, he(2), j, L
	equivalence (f,fe(1)), (h,he(1)), (i,j), (k,L)
	data c,d/1.1d0, 2/, g,h/2.2d0,4 3/, k/4/
	call goo(a,b,c,d,e,fe,g,he,i,j,k,L)
	end
iochk.fm@���z��	program main
	integer ip, ipa(10)
	integer*2 i2p, i2pa(10)
	real rp, rpa(10)
	double precision dp, dpa(10)
	complex cp, cpa(10)
	double complex zp, zpa(10)
	character*10 c10p, c10pa(10)
	logical Lp, Lpa(10)
	call goo(ip, ipa, i2p, i2pa, rp, rpa, dp, d
pa, cp, cpa,
�g1			zp, zpa, c10p, c10pa, Lp, Lpa)
	end
	subroutine goo(ip, ipa, i2p, i2pa, rp, rpa, dp, dpa, cp, cpa,
�_1			zp, zpa, c10p, c10pa, Lp, Lpa)
	common /zork/ zc, zca, dc, dca, cc, cca, rc, rca, Lc, Lca,
��1		ic, ica, i2c, i2ca
	common /zorkc/ c10c, c10ca
	integer i, ic, ip, ia(10), ica(10), ipa(10)
	integer*2 i2, i2c, i2p, i2a(10), i2ca(10), i2pa(10)
	real r, rc, rp, ra(10), rca(10), rpa(10)
	double precision d, dc, dp, da(10), dca(10), dpa(10)
	complex� c, cc, cp, ca(10), cca(10), cpa(10)
	double complex z, zc, zp, za(10), zca(10), zpa(10)
	character*10 c10, c10c, c10p, c10a(10), c10ca(10), c10pa(10)
	logical L, Lc, Lp, La(10), Lca(10), Lpa(10)

	read(*,*)
�=x	i, ic, ip, ia(10), ica(3), ipa(4), ia, ica, ipa
	read(*,*)
�Ex	i2, i2c, i2p, i2a(3), i2ca(4), i2pa(5), i2a, i2ca, i2pa
	read(*,*)
�<x	r, rc, rp, ra(3), rca(4), rpa(5), ra, rca, rpa
	read(*,*)
�<x	d, dc, dp, da(3), dca(4), dpa(5), da, dca, dpa
	read(*,*)
�<x	c, cc, cp, ca(3), cca(4), cpa(5), ca, cca, cpa
	read(*,*)
�<x	z, zc, zp, za(3), zca(4), zpa(5), za, zca, zpa
	read(*,*)
�Ix	c10, c10c, c10p, c10a(3),c10ca(4),c10pa(5),c10a,c10ca,c10pa
	read(*,*)
�@x	L, Lc, Lp, La(3), Lca(4), Lpa(5), La, Lca, Lpa
	read(*,'(a)')
�3x	i, ic, ip, ia(10), ica(3), ipa(4), ia, ica, ipa,
�;x	i2, i2c, i2p, i2a(3), i2ca(4), i2pa(5), i2a, i2ca, i2pa,
�2x	r, rc, rp, ra(3), rca(4), rpa(5), ra, rca, rpa,
�2x	d, dc, dp, da(3), dca(4), dpa(5), da, dca, dpa,
�2x	c, cc, cp, ca(3), cca(4), cpa(5), ca, cca, cpa,
�2x	z, zc, zp, za(3), zca(4), zpa(5), za, zca, zpa,
�?x	c10, c10c, c10p, c10a(3),c10ca(4),c10pa(5),c10a,c10ca,c10pa,
�Fx	L, Lc, Lp, La(3), Lca(4), Lpa(5), La, Lca, Lpa
	read('stuff','(a)')
�3x	i, ic, ip, ia(10), ica(3), ipa(4), ia, ica, ipa,
�;x	i2, i2c, i2p, i2a(3), i2ca(4), i2pa(5), i2a, i2ca, i2pa,
�2x	r, rc, rp, ra(3), rca(4), rpa(5), ra, rca, rpa,
�2x	d, dc, dp, da(3), dca(4), dpa(5), da, dca, dpa,
�2x	c, cc, cp, ca(3), cca(4), cpa(5), ca, cca, cpa,
�2x	z, zc, zp, za(3), zca(4), zpa(5), za, zca, zpa,
�?x	c10, c10c, c10p, c10a(3),c10ca(4),c10pa(5),c10a,c10ca,c10pa,
�:x	L, Lc, Lp, La(3), Lca(4), Lpa(5), La, Lca, Lpa
	read(5)
�3x	i, ic, ip, ia(10), ica(3), ipa(4), ia, ica, ipa,
�;x	i2, i2c, i2p, i2a(3), i2ca(4), i2pa(5), i2a, i2ca, i2pa,
�2x	r, rc, rp, ra(3), rca(4), rpa(5), ra, rca, rpa,
�2x	d, dc, dp, da(3), dca(4), dpa(5), da, dca, dpa,
�2x	c, cc, cp, ca(3), cca(4), cpa(5), ca, cca, cpa,
�2x	z, zc, zp, za(3), zca(4), zpa(5), za, zca, zpa,
�?x	c10, c10c, c10p, c10a(3),c10ca(4),c10pa(5),c10a,c10ca,c10pa,
�=x	L, Lc, Lp, La(3), Lca(4), Lpa(5), La, Lca, Lpa
	write(*,*)
�3x	i, ic, ip, ia(10), ica(3), ipa(4), ia, ica, ipa,
�;x	i2, i2c, i2p, i2a(3), i2ca(4), i2pa(5), i2a, i2ca, i2pa,
�2x	r, rc, rp, ra(3), rca(4), rpa(5), ra, rca, rpa,
�2x	d, dc, dp, da(3), dca(4), dpa(5), da, dca, dpa,
�2x	c, cc, cp, ca(3), cca(4), cpa(5), ca, cca, cpa,
�2x	z, zc, zp, za(3), zca(4), zpa(5), za, zca, zpa,
�?x	c10, c10c, c10p, c10a(3),c10ca(4),c10pa(5),c10a,c10ca,c10pa,
�Ax	L, Lc, Lp, La(3), Lca(4), Lpa(5), La, Lca, Lpa
	write(*,'(a)')
�3x	i, ic, ip, ia(10), ica(3), ipa(4), ia, ica, ipa,
�;x	i2, i2c, i2p, i2a(3), i2ca(4), i2pa(5), i2a, i2ca, i2pa,
�2x	r, rc, rp, ra(3), rca(4), rpa(5), ra, rca, rpa,
�2x	d, dc, dp, da(3), dca(4), dpa(5), da, dca, dpa,
�2x	c, cc, cp, ca(3), cca(4), cpa(5), ca, cca, cpa,
�2x	z, zc, zp, za(3), zca(4), zpa(5), za, zca, zpa,
�?x	c10, c10c, c10p, c10a(3),c10ca(4),c10pa(5),c10a,c10ca,c10pa,
�Gx	L, Lc, Lp, La(3), Lca(4), Lpa(5), La, Lca, Lpa
	write('stuff','(a)')
�3x	i, ic, ip, ia(10), ica(3), ipa(4), ia, ica, ipa,
�;x	i2, i2c, i2p, i2a(3), i2ca(4), i2pa(5), i2a, i2ca, i2pa,
�2x	r, rc, rp, ra(3), rca(4), rpa(5), ra, rca, rpa,
�2x	d, dc, dp, da(3), dca(4), dpa(5), da, dca, dpa,
�2x	c, cc, cp, ca(3), cca(4), cpa(5), ca, cca, cpa,
�2x	z, zc, zp, za(3), zca(4), zpa(5), za, zca, zpa,
�?x	c10, c10c, c10p, c10a(3),c10ca(4),c10pa(5),c10a,c10ca,c10pa,
�;x	L, Lc, Lp, La(3), Lca(4), Lpa(5), La, Lca, Lpa
	write(5)
�3x	i, ic, ip, ia(10), ica(3), ipa(4), ia, ica, ipa,
�;x	i2, i2c, i2p, i2a(3), i2ca(4), i2pa(5), i2a, i2ca, i2pa,
�2x	r, rc, rp, ra(3), rca(4), rpa(5), ra, rca, rpa,
�2x	d, dc, dp, da(3), dca(4), dpa(5), da, dca, dpa,
�2x	c, cc, cp, ca(3), cca(4), cpa(5), ca, cca, cpa,
�2x	z, zc, zp, za(3), zca(4), zpa(5), za, zca, zpa,
�?x	c10, c10c, c10p, c10a(3),c10ca(4),c10pa(5),c10a,c10ca,c10pa,
�6x	L, Lc, Lp, La(3), Lca(4), Lpa(5), La, Lca, Lpa
	end
procargs.f��,���	subroutine zot(n,grok,gulp)
	external grok,gulp
	real gulp
	external foo,foo1
	integer foo1
	intrinsic dsqrt
	call goo(zot,foo,foo1,dsqrt,grok,gulp,n-1)
	end
* zot:  TNAME, CLPROC,	STGEXT,	TYSUBR,		PTHISPROC
* foo:  TNAME, CLPROC,	STGEXT,	TYUNKNOWN,	P�EXTERNAL
* foo1:	TNAME, CLPROC,	STGEXT,	TYLONG,		PEXTERNAL
*dsqrt:was: TADDR, 0	STGEXT,	0
*dsqrt:now: TADDR, CLPROC	STGEXT,	TYDREAL
* grok:	TEXPR(OPWHATSIN,TNAME); TNAME, TYREAL, CLPROC, STGARG,	PEXTERNAL
* gulp:	TEXPR(OPWHATSIN,TNAME); TNAME, TYREAL, CLPROC, STGARG,	PEXTERNAL
b4.f�zH�X�PP	character*10 mdr_queue
	CALLN_SPAWN('$ PRINT/DELETE/QUEUE='//MDR_QUEUE())
	end
b5.fYH�͏e�subroutine abstr(rwk,rate)
�dimension rwk(rate)
�
integer rate
�RETURN
�END
b6.fD�H�G���SUBROUTINE COLOUT(LINE, RN, J)
�CHARACTER*8 LINE, RN(*)
�EXTERNAL EXINDX
�/INTEGER EXINDX, J, N
 30   N = EXINDX(LINE, J)
�RN(N) = RN(EXINDX(LINE,J))
�END
b7.fȸH��``	subroutine foo(a,b,c)
	character*8 a,b,c
	external b,c
	a = b(c(3,a//c(1,'def'))//c(4,a))
	end
b8.f��H���M�character  word*60�
1100�$goto (1500,1100)jarg(word)
1500	end
b9.f��H����t	program f2ctest
	character s*10,clower
	s='AbCdEfGhIjKl'
	do 20 i=1,10
20	   s(i:i)=clower(s(i:i))
	print *,s
	end
�]CHARACTER*(*) FUNCTION CLOWER(C)
C
C  Return lower case equivalent of character string "C"
C
�CHARACTER C*(*),T
C
�L=MIN0(LEN(C),LEN(CLOWER))
�CLOWER=' '
�DO 10 I=1,L
�		T=C(I:I)
�	5IF(T .GE. 'A' .AND. T .LE. 'Z')T=CHAR(ICHAR(T)+32)
10�CLOWER(I:I)=T
�RETURN
�END
I.f3�$PQI1.f�[��56I2.fDc��9:L.fԹ�Qjka.f]���34a1.f�<�8OPa2.f�h��.0a3.f��vwX��b.fs����b1.f=��	�b2.f2Q�Q�9b3.f���R;��b4.f�zH�X�PQb5.fYH�͏eVb6.fD�H�G���b7.fȸH��`ab8.f��H���MDb9.f��H�����bc.fZ�S	=HIboo.f�f6w7Y�boo00.f}_5x�Y47boo01.fu�5y6\r_boo1.f�e6z�\��boo10.fE�6{e]"#boo11.f�C7|�]abboo12.fnn8}2^lnboo12a.f{�7~�_z{boo13.f-�7c`��boo13b.f/
8�laOPboo14.f��7��a�	�	boo15.f�p8��kNOboo16.f'm8�#l��boo17.f�8�m./boo18.f�q8�emY[boo19.fƁ9��u>?boo1a.f��6��nklboo2.f0{6�toFGboo3.f�q6��owxboo3a.f1}6�{p��boo4.fŁ6�#qNOboo5.f�u6��q@Aboo6.f�6��qJKboo7.fA�6�jr��boo8.f��6�dsz{boo9.fF�6�tDEboo9a.f�;7�ltLMboo9b.f�k7��t��c.f�
�yzc1.f&x��BCc2.fo���bcc3.f�9�
u��c4.fW]�1CDc5.fo]��OPc6.f�I�
��c7.fBO����c8.f�V��	��c9.f�n�>
��ca.f���ABcb.f�i�n��cb1.f��R
��cb2.f<��phfcb3.f����.cb4.f�DX�Zy02cd.fq=�;VWcd1.f=��Tv=()cd2.f��U�=<=cen.f���V$>jkcen1.f���W�>��cen2.f�Xk?��cen3.f�9�Y@��cen4.f<�Z�@vwcf.f�����cf0.f�z�[\Acf1.f�}�\�A>?cf2.f���]�Arccf3.faP�^�B��cf4.f
l�_&C��cf5.f{�`
D��cf6.fݾ�a�D9:coo.fh��bE23cx.f�S�ctEfgcx1.f�e�d�E^_cx2.fGA��jkcx3.f�}�e�F12d.fIJ�,ABd1.f�J����d2.f���V`ad3.f!���FGd4.fDB�Svopd5.fUEB��vqrd6.fHB�}w~d7.f_B� x��d8.fIOB��xGHde.f�V� F	doo.fB��!s+,e.f@n�"���e1.fc�#��Ne2.f�f�$5�qe3.f���%�e4.f�K�&	 ��e5.f�8�f�Fefe6.f�M�gbGefec.fó�'�!��ed.f���h�G��en.f���i�H��en0.f:�j�J��en1.ff�k�Kvxen2.f�l>MMOen3.f�i�m�N8�en4.fl�n�R�uen5.f.r�o1S��en6.f�q�p�S�wf.f�H�({"/0f0.fF[�)�"|uf1.f9��*h$��f2.f�S�+t%��f3.f,V�,P&$%foo.f}2�-�&+,fp1.f�
�.�&$%g.f4��/2'��g1.f��0(��goo.f�@�1�(RSh.f���2l)cch0.f5��3�)DEh1.f�
�4\*=>h2.fn�5�*WXh3.f7W�6:+'(h4.fBW�7�+=>i.fYN�8�+��i2.f$�9�,=>if.f�u�q�T+,iochk.fm@���z�Kl.f�<�:�,��m.f�@�;�-m1.f�j�<.`am1t.fK�r�T��n.fYD�=�.OPo.fr��>/JKp.fb�?s/��p1.fk=�@0;<p2.f�i�A{0��procargs.f��,��r.f�2�B11TUr1.f�4�C�1�r2.f'5�DN2str3.f9`�E�2KLr4.f[m�FV3��r5.fn�G04��r6.fQ��H�4��s.f2�I�5scs1.f��J'7
s2.f�e�KY7&'sf.f{�L�7BCsf1.fs��M8KLsf2.fȵ�N{8PQw.f�6�O�8UVx.f�s�Pj9YZz1.f�A�t_Wcdz2.fB�u�Wklzoo.f<�s�U�����
unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.