extra regression test: compute 500 digits of pi

3 files changed, 75 insertions, 2 deletions

diff --git a/regress/usr.bin/dc/Makefile b/regress/usr.bin/dc/Makefile
index 871b58f5529..65589ca2297 100644
--- a/regress/usr.bin/dc/Makefile
+++ b/regress/usr.bin/dc/Makefile
@@ -1,9 +1,9 @@
-# $OpenBSD: Makefile,v 1.11 2003/12/17 15:11:36 otto Exp $
+# $OpenBSD: Makefile,v 1.12 2004/10/19 07:39:36 otto Exp $
 
 DC=dc -x
 
 REGRESS_TARGETS=t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17 \
-	t18 t19 t20
+	t18 t19 t20 t21
 
 # .in: input file
 # .out: desired result
@@ -28,6 +28,7 @@ REGRESS_TARGETS=t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 t16 t17 \
 # t18: read uninitialized and initialized array locations
 # t19: test extended registers
 # t20: towers of hanoi
+# t21: 500 decimals of pi
 
 all: clean ${REGRESS_TARGET}
 
diff --git a/regress/usr.bin/dc/t21.in b/regress/usr.bin/dc/t21.in
new file mode 100644
index 00000000000..ee95a9ca943
--- /dev/null
+++ b/regress/usr.bin/dc/t21.in
@@ -0,0 +1,64 @@
+
+
+
+
+
+
+ 20k
+[ 0lx-sx 1sw]s0
+[lx 2/sxly 1+sylx 2<1]s1
+[lglg*sglyd1-sy 0!=4]s4
+[ 1lg/Lxs.Las.Lbs.Lcs.Lds.Les.Lgs.Lts.Lws.Lys. 4Q]s5
+[lg 1/sglyd1-sy 0!=4 ltklw 1=5 lg 1/Lxs.Las.Lbs.Lcs.Lds.Les.Lgs.Lts.Lws.Lys. 3Q]s3
+[lblx*sblcla*lb+scldla*sdlcld/sglgle=3 lgselad1+sas. 1 1=2]s2
+[0Sy0Sw0St0Sg0Se0Sd0Sc0Sb0SaSxKstlt .434lx*+ 1+k 0swlx 0>0  0sylx 2<1  1sa 1sblbsc 1sd 1se 1dsas. 1 1=2 Lxs.Las.Lbs.Lcs.Lds.Les.Lgs.Lts.Lws.Lys.0 1Q]s
+
+
+
+[ 1 10K^-Lxs.Las.Lbs.Lcs.Lds.Les.Lfs.Lgs.Lus.Lss.Lts. 2Q]s6
+[lsk]s8
+[lslxZlxX- 2/+ 1+ssls 0<8 lxvsxlf 2*sflx 2<7]s7
+[lsk]s:
+[lslxZlxX- 2/+ 1+ssls 0<: lxvsxlf 2*sflx .5>9]s9
+[ltklulc*ld/Lxs.Las.Lbs.Lcs.Lds.Les.Lfs.Lgs.Lus.Lss.Lts. 3Q]s<
+[lbls*sblcla*ldlb*+scldla*sdlcld/sglgle=< lgsela 2+dsas. 1 1=;]s;
+[0St0Ss0Su0Sg0Sf0Se0Sd0Sc0Sb0SaSxlx 0!<6 Kst 1sfKlxX+lxZ- 1+kKsslx 2<7 lx .5>9 ltlfZ+lfX- 1+klx 1-lx 1+/suK 1.1ltZ*+ 1.1ltX*-klulu*ss 2lf*sblbsc 1sd 1se 3dsas. 1 1=; Lxs.Las.Lbs.Lcs.Lds.Les.Lfs.Lgs.Lus.Lss.Lts.0 1Q]s
+
+
+
+[ltss]s=
+[lx 2lp*/ 1+ 2/sn]s>
+[lx 2lp*/ 1- 2/sn]s?
+[ 0lx-sx]s@
+[ltkls 1/Lxs.Las.Lbs.Lcs.Lss.Lts.Lys.Lps.Lns.Lis. 3Q]sB
+[laly*salbli*li 1-*sblalb/sclc 0=B lslc+ssli 2+dsis. 1 1=A]sA
+[0Si0Sn0Sp0Sy0St0Ss0Sc0Sb0SaSxKstlx .7853/syltlyZ+lyX-sslslt>= lsk 1l
xsp 0klx 0!>> lx 0>? lx 4ln*lp*-sxln 2% 0!=@ lt 1.2lt*Z+ 1.2lt*X-k 0lx-lx*sylxsa 1sblxss 3dsis. 1 1=A Lxs.Las.Lbs.Lcs.Lss.Lts.Lys.Lps.Lns.Lis.0 1Q]s
+
+
+
+[0StSxKstK 1+klx 2 1l
x*+lxsxltklx 1/Lxs.Lts. 1QLxs.Lts.0 1Q]s
+
+
+
+[ 0Lxs.Las.Lbs.Lcs.Lds.Les.Lfs.Lgs.Lss.Lts. 2Q]sC
+[ .7853981633974483096156608458198757210492923498437764 1/Lxs.Las.Lbs.Lcs.Lds.Les.Lfs.Lgs.Lss.Lts. 3Q]sE
+[K 52>E ]sD
+[K 1+k 0 1 1.lxlx*+v--lx/sxlf 2*sflx .5<F]sF
+[K 1+k 0 1 1.lxlx*+v--lx/sxlf 2*sflx 0 .5->G]sG
+[ltklxlc*ld/Lxs.Las.Lbs.Lcs.Lds.Les.Lfs.Lgs.Lss.Lts. 3Q]sI
+[lbls*sblcla*ldlb*+scldla*sdlcld/sglgle=I lgsela 2+dsas. 1 1=H]sH
+[0St0Ss0Sg0Sf0Se0Sd0Sc0Sb0SaSxlx 0=C lx 1=D Kst 1sflx .5<F lx 0 .5->G  0lx-lx*sslfsblfsc 1sd 1se 3dsas. 1 1=H Lxs.Las.Lbs.Lcs.Lds.Les.Lfs.Lgs.Lss.Lts.0 1Q]s

+
+
+
+[Klk+k]sJ
+[ 0ln-sn 0lx-sx]sK
+[lalx*salc 2*li*sclid1+sis.liln!<L]sL
+[ltklg 1/Lns.Lxs.Las.Lbs.Lcs.Lds.Les.Lgs.Lis.Lss.Lks.Lts. 3Q]sN
+[lals*salbli*lnli+*la+sblcli*lnli+*sclblc/sglgle=N lgselid1+sis. 1 0!=M]sM
+[0St0Sk0Ss0Si0Sg0Se0Sd0Sc0Sb0SaSxSnKst 1.36lx* 1.16lt*+ln-sklkZlkX-sklk 0<J  0lx-lx* 4/ssln 0>K  1sa 1sc 1dsis.liln!<L lasb 1sd 1se 1dsis. 1 0!=M Lns.Lxs.Las.Lbs.Lcs.Lds.Les.Lgs.Lis.Lss.Lks.Lts.0 1Q]s
+
+
+
+ 500k 2 2 10000^l
x*ps.
+q
\ No newline at end of file
diff --git a/regress/usr.bin/dc/t21.out b/regress/usr.bin/dc/t21.out
new file mode 100644
index 00000000000..8cc2012e640
--- /dev/null
+++ b/regress/usr.bin/dc/t21.out
@@ -0,0 +1,8 @@
+3.1415926535897932384626433832795028841971693993751058209749445923078\
+164062862089986280348253421170679821480865132823066470938446095505822\
+317253594081284811174502841027019385211055596446229489549303819644288\
+109756659334461284756482337867831652712019091456485669234603486104543\
+266482133936072602491412737245870066063155881748815209209628292540917\
+153643678925903600113305305488204665213841469519415116094330572703657\
+595919530921861173819326117931051185480744623799627495673518857527248\
+9122793818301194912