└── p ├── test ├── fjf126.in ├── fixcr.in ├── fjf119.in ├── fjf120.in ├── hanoi.in ├── index.in ├── kevin6.in ├── rdwt.in ├── setest.in ├── basic.in ├── basic.out ├── fjf307b.in ├── fjf432.in ├── gordon.out ├── kevin7.in ├── modtest.out ├── size.in ├── chuck5.in ├── fjf307c.in ├── fjf487a.out ├── mike1.out ├── peter.in ├── arp3.out ├── fjf709.out ├── ian4a.inc ├── ian4b.inc ├── link8c.c ├── prep1a.inc ├── procs.in ├── cfor.in ├── emil25.in ├── fjf334.in ├── fjf430l.inc ├── fjf485.out ├── hugereal.in ├── math.out ├── t05.out ├── t06.out ├── t07.out ├── t18.out ├── fjf307a.in ├── kevin15.in ├── procs.out ├── scaltst.out ├── setret.out ├── theo1b.out ├── fjf60.run ├── numericio.out ├── ffunc.out ├── fjf1036.out ├── ian6.out ├── kevin15.out ├── md5test.in ├── artur1a.out ├── artur1b.out ├── emil20.in ├── fjf380c.c ├── fjf487b.out ├── insan.in ├── error.pas ├── nonlocgoto.out ├── t12.out ├── theo1a.out ├── adam1.pas ├── align.out ├── fjf47.pas ├── fjf519a.pas ├── fjf519b.pas ├── fjf519c.pas ├── fjf519d.pas ├── fjf519e.pas ├── fjf519f.pas ├── fjf519g.pas ├── fjf871.in ├── nmaze.in ├── pvs1.out ├── fjf200.pas ├── fjf519f.in ├── fjf519g.in ├── form.out ├── hanoi.out ├── t08.out ├── fjf165a.c ├── fjf165a.pas ├── fjf165b.pas ├── fjf416a.pas ├── fjf416b.pas ├── fjf546a.pas ├── fjf60.pas ├── oemtest.pas ├── sven11.pas ├── sven15.pas ├── sven18u.pas ├── afjf815.pas ├── chief47a.pas ├── chief47b.pas ├── fjf314.pas ├── fjf405.pas ├── fjf406.pas ├── fjf407.pas ├── fjf410.pas ├── fjf464b.pas ├── fjf464d.pas ├── fjf487a.pas ├── fjf756a.pas ├── fjf760b.pas ├── fjf835e.pas ├── fjf881.pas ├── goto7.pas ├── hamachi.out ├── ian2.inc ├── link4.c ├── nonloc4goto.out ├── sven8.pas ├── chuck6.out ├── err1.pas ├── expotst.in ├── fjf1063u.pas ├── fjf1063w.pas ├── fjf1063y.pas ├── fjf1065a.pas ├── fjf1065q.pas ├── fjf1065v.pas ├── fjf185.pas ├── fjf365.pas ├── fjf5.pas ├── fjf625a.pas ├── fjf782.pas ├── fjf882v.pas ├── kevin17.pas ├── mod17a.pas ├── mod17b.pas ├── mod17c.pas ├── t09.out ├── waldek1.pas ├── chief16v.pas ├── chief46.pas ├── dblimp2v.pas ├── fjf1058u.pas ├── fjf1068.pas ├── fjf136.pas ├── fjf200a.pas ├── fjf224.run ├── fjf372.pas ├── fjf488i4.pas ├── fjf571a.pas ├── fjf571b.pas ├── fjf571c.pas ├── fjf5a.pas ├── fjf757a.pas ├── fjf757b.pas ├── fjf757c.pas ├── fjf759.pas ├── fjf79.pas ├── fjf814u.pas ├── fjf835a.pas ├── fjf835d.pas ├── fjf837h.pas ├── fjf854.pas ├── fjf863b.pas ├── fjf863c.pas ├── fjf877.pas ├── fjf882.pas ├── fjf913a.pas ├── fjf913b.pas ├── fjf919b.pas ├── fjf948.pas ├── mike1.pas ├── waldek1.cmp ├── adam2.pas ├── bill4.pas ├── chief43b.pas ├── dimwit1.pas ├── fjf137.pas ├── fjf195u.pas ├── fjf200c.pas ├── fjf278.pas ├── fjf399a.pas ├── fjf424b.pas ├── fjf573.pas ├── fjf667.pas ├── fjf809b.pas ├── fjf814.pas ├── fjf821k.pas ├── fjf835b.pas ├── fjf835c.pas ├── fjf863d.pas ├── fjf904j.pas ├── fjf921h.pas ├── fjf921k.pas ├── fjf921l.pas ├── link1b.pas ├── maur6.pas ├── real.out ├── stro2.pas ├── sven18b.pas ├── sven18c.pas ├── chief43a.pas ├── confarr9.pas ├── esven2.pas ├── fjf101.pas ├── fjf1066c.pas ├── fjf162.pas ├── fjf200b.pas ├── fjf309.pas ├── fjf332.pas ├── fjf399b.pas ├── fjf431.pas ├── fjf462b.pas ├── fjf488vk.pas ├── fjf514.pas ├── fjf538a.pas ├── fjf542.pas ├── fjf544a.pas ├── fjf546c.pas ├── fjf551a.pas ├── fjf558f.pas ├── fjf605b.pas ├── fjf629f.pas ├── fjf641c.pas ├── fjf641g.pas ├── fjf649a.pas ├── fjf665a.pas ├── fjf68.pas ├── fjf756b.pas ├── fjf758c.pas ├── fjf758g.pas ├── fjf78.pas ├── fjf843.pas ├── fjf870.pas ├── fjf921a.pas ├── fjf921b.pas ├── fjf921e.pas ├── fjf970a.pas ├── fnested.out ├── grx1.pas ├── grx2.pas ├── kevin14.pas ├── nick1b.pas ├── nick2.pas ├── fail3.pas ├── fjf1018h.pas ├── fjf1018k.pas ├── fjf1018s.pas ├── fjf1018y.pas ├── fjf1063a.pas ├── fjf1063b.pas ├── fjf1063c.pas ├── fjf1063d.pas ├── fjf1063e.pas ├── fjf1063f.pas ├── fjf1063g.pas ├── fjf1063v.pas ├── fjf1063x.pas ├── fjf1063z.pas ├── fjf1065b.pas ├── fjf1065p.pas ├── fjf1065s.pas ├── fjf1065t.pas ├── fjf1065u.pas ├── fjf1065w.pas ├── fjf1065x.pas ├── fjf1065y.pas ├── fjf1065z.pas ├── fjf121.pas ├── fjf161a.pas ├── fjf177.pas ├── fjf181c.pas ├── fjf181d.pas ├── fjf211gu.pas ├── fjf295.pas ├── fjf40.pas ├── fjf40b.pas ├── fjf40e.pas ├── fjf46.pas ├── fjf488vj.pas ├── fjf539b.pas ├── fjf551b.pas ├── fjf558h.pas ├── fjf562j.pas ├── fjf562k.pas ├── fjf641a.pas ├── fjf641e.pas ├── fjf665m.pas ├── fjf692.pas ├── fjf725d.pas ├── fjf730a.pas ├── fjf730c.pas ├── fjf735i.pas ├── fjf735j.pas ├── fjf745i.pas ├── fjf811e.pas ├── fjf846.pas ├── fjf849.pas ├── fjf921w.pas ├── fjf964b.pas ├── fjf971a.pas ├── fjf982b.pas ├── fjf987g.pas ├── larry1.pas ├── link5a.pas ├── link5b.pas ├── maur1.pas ├── sven14.pas ├── amod17d.pas ├── az38.pas ├── bo4-7.pas ├── chief43c.pas ├── chief43d.pas ├── chief43e.pas ├── chief43f.pas ├── chief54a.pas ├── dollars.pas ├── eike5.out ├── fjf1018c.pas ├── fjf1018j.pas ├── fjf140v.pas ├── fjf161b.pas ├── fjf206a.pas ├── fjf211au.pas ├── fjf211du.pas ├── fjf211lu.pas ├── fjf333.pas ├── fjf371.run ├── fjf432.run ├── fjf463.pas ├── fjf53a.pas ├── fjf53b.pas ├── fjf53c.pas ├── fjf547a.pas ├── fjf547b.pas ├── fjf547g.pas ├── fjf547h.pas ├── fjf560c.pas ├── fjf605a.pas ├── fjf629a.pas ├── fjf665c.pas ├── fjf723c.pas ├── fjf723d.pas ├── fjf726a.pas ├── fjf726c.pas ├── fjf734b.pas ├── fjf761.pas ├── fjf769b.pas ├── fjf769g.pas ├── fjf781i.pas ├── fjf81.pas ├── fjf821h.pas ├── fjf925.pas ├── fjf937a.pas ├── fjf982a.pas ├── fjf998c.pas ├── hugereal.out ├── iniabs.pas ├── kevin5.pas ├── maur6uu.pas ├── mod16a.pas ├── mod17v5.pas ├── nobool.pas ├── read3.pas ├── sven14a.pas ├── adam2u.pas ├── caglio1.pas ├── emil10.pas ├── expotst.out ├── fjf100.pas ├── fjf1034.pas ├── fjf1040b.pas ├── fjf1040d.pas ├── fjf1040e.pas ├── fjf1040f.pas ├── fjf1040g.pas ├── fjf1040h.pas ├── fjf1040i.pas ├── fjf1040j.pas ├── fjf1055b.pas ├── fjf140u.pas ├── fjf154.pas ├── fjf183.pas ├── fjf188.pas ├── fjf206m.pas ├── fjf206n.pas ├── fjf211iu.pas ├── fjf211ku.pas ├── fjf255p.pas ├── fjf331a.pas ├── fjf40a.pas ├── fjf421k.pas ├── fjf430d.pas ├── fjf430l.pas ├── fjf430r.pas ├── fjf457.pas ├── fjf51a.pas ├── fjf51b.pas ├── fjf51c.pas ├── fjf538b.pas ├── fjf547c.pas ├── fjf547i.pas ├── fjf547n.pas ├── fjf558c.pas ├── fjf558e.pas ├── fjf561a.pas ├── fjf562d.pas ├── fjf59.pas ├── fjf629b.pas ├── fjf656b.pas ├── fjf659b.pas ├── fjf659i.pas ├── fjf665p.pas ├── fjf665q.pas ├── fjf720b.pas ├── fjf735c.pas ├── fjf736a.pas ├── fjf736b.pas ├── fjf736c.pas ├── fjf736d.pas ├── fjf736e.pas ├── fjf736i.pas ├── fjf736j.pas ├── fjf758b.pas ├── fjf76.pas ├── fjf769e.pas ├── fjf790.pas ├── fjf795.pas ├── fjf809a.pas ├── fjf820.pas ├── fjf821i.pas ├── fjf845.pas ├── fjf904c.pas ├── fjf904e.pas ├── fjf917a.pas ├── fjf927a.pas ├── fjf998d.pas ├── head.pas ├── ian2.pas ├── ian5.inc ├── inga1b.out ├── ken1.pas ├── mod17v1.pas ├── prep1a.pas ├── rs.pas ├── sam12_e.pas ├── sam5m.pas ├── waldek13.pas ├── write3.pas ├── az31.pas ├── az42.pas ├── dblimp1.pas ├── eike6.pas ├── fjf101a.pas ├── fjf1037c.pas ├── fjf1040c.pas ├── fjf1055a.pas ├── fjf132.pas ├── fjf140a.pas ├── fjf140b.pas ├── fjf161u.pas ├── fjf176.pas ├── fjf206b.pas ├── fjf227u.pas ├── fjf312a.pas ├── fjf312b.pas ├── fjf32u.pas ├── fjf364.pas ├── fjf405a.pas ├── fjf406a.pas ├── fjf407a.pas ├── fjf42.pas ├── fjf430m.pas ├── fjf433a.pas ├── fjf433c.pas ├── fjf480.run ├── fjf488i3.pas ├── fjf488va.pas ├── fjf488vb.pas ├── fjf488vc.pas ├── fjf493b.pas ├── fjf536a.pas ├── fjf546b.pas ├── fjf562b.pas ├── fjf562ju.pas ├── fjf562ku.pas ├── fjf625b.pas ├── fjf656u.pas ├── fjf665n.pas ├── fjf665o.pas ├── fjf665s.pas ├── fjf710.pas ├── fjf725c.pas ├── fjf725e.pas ├── fjf732.pas ├── fjf734a.pas ├── fjf735o.pas ├── fjf740.pas ├── fjf751x.pas ├── fjf758j.pas ├── fjf758k.pas ├── fjf758l.pas ├── fjf769c.pas ├── fjf769d.pas ├── fjf793d.pas ├── fjf811b.pas ├── fjf811c.pas ├── fjf811d.pas ├── fjf811f.pas ├── fjf815u.pas ├── fjf821r.pas ├── fjf828a.pas ├── fjf838.pas ├── fjf840f.pas ├── fjf894.pas ├── fjf904d.pas ├── fjf915k.pas ├── fjf915n.pas ├── fjf959.pas ├── fjf987f.pas ├── fjf987v.pas ├── fjf987w.pas ├── fjf998r.pas ├── jesper5.pas ├── link7a.pas ├── link7b.pas ├── mod17v2.pas ├── mod17v3.pas ├── sietse3.pas ├── sven18v.pas ├── unitinfw.pas ├── unum.pas ├── bill4u.pas ├── bo4-10.pas ├── bo5-22.pas ├── const1.pas ├── emil27c.pas ├── emil27d.pas ├── esven1u.pas ├── fjf1006.pas ├── fjf1017b.pas ├── fjf1017e.pas ├── fjf1040a.pas ├── fjf1064g.pas ├── fjf1066t.pas ├── fjf150.pas ├── fjf151a.pas ├── fjf153.pas ├── fjf171.pas ├── fjf194.pas ├── fjf206c.pas ├── fjf206d.pas ├── fjf206e.pas ├── fjf206h.pas ├── fjf206i.pas ├── fjf206j.pas ├── fjf206k.pas ├── fjf206l.pas ├── fjf206o.pas ├── fjf211ju.pas ├── fjf211mu.pas ├── fjf211ou.pas ├── fjf238.pas ├── fjf239u.pas ├── fjf245b.pas ├── fjf245d.pas ├── fjf266.pas ├── fjf332a.pas ├── fjf402b.pas ├── fjf402c.pas ├── fjf427c.pas ├── fjf433b.pas ├── fjf433d.pas ├── fjf433f.pas ├── fjf433g.pas ├── fjf433h.pas ├── fjf433i.pas ├── fjf433k.pas ├── fjf433l.pas ├── fjf44.pas ├── fjf470a.pas ├── fjf484b.pas ├── fjf488i5.pas ├── fjf488o5.pas ├── fjf488o6.pas ├── fjf488p5.pas ├── fjf488p6.pas ├── fjf488p7.pas ├── fjf534.pas ├── fjf558g.pas ├── fjf561b.pas ├── fjf568.pas ├── fjf579c.pas ├── fjf628.pas ├── fjf641i.pas ├── fjf641k.pas ├── fjf654a.pas ├── fjf678a.pas ├── fjf733c.pas ├── fjf733d.pas ├── fjf734c.pas ├── fjf735p.pas ├── fjf736t.pas ├── fjf751g.pas ├── fjf758s.pas ├── fjf769a.pas ├── fjf781h.pas ├── fjf78u.pas ├── fjf792c.pas ├── fjf80.pas ├── fjf816b.pas ├── fjf818.pas ├── fjf822.pas ├── fjf840g.pas ├── fjf843m.pas ├── fjf864h.pas ├── fjf915j.pas ├── fjf915kk.pas ├── fjf915l.pas ├── fjf915nn.pas ├── fjf921c2.pas ├── fjf921e2.pas ├── fjf937m.pas ├── fjf982c.pas ├── link8.pas ├── marius2b.pas ├── maur6u.pas ├── minimax.pas ├── mod14u.pas ├── mod15b.pas ├── powtest.out ├── real2.pas ├── upath2.pas ├── az26.pas ├── az39.pas ├── bernh7.pas ├── bo4-20.pas ├── chief46v.pas ├── con1.pas ├── eike1a.pas ├── eike3b.pas ├── eike3c.pas ├── eike4.pas ├── emil20.out ├── fjf1018f.pas ├── fjf101b.pas ├── fjf1026j.pas ├── fjf1040m.pas ├── fjf1064c.pas ├── fjf116.pas ├── fjf175f.pas ├── fjf191.pas ├── fjf198a.pas ├── fjf19u.pas ├── fjf206f.pas ├── fjf211c.pas ├── fjf366a.pas ├── fjf407b.pas ├── fjf407c.pas ├── fjf426t.pas ├── fjf427a.pas ├── fjf427f.pas ├── fjf430e.pas ├── fjf430f.pas ├── fjf430q.pas ├── fjf45.pas ├── fjf453.pas ├── fjf468.pas ├── fjf484c.pas ├── fjf488i2.pas ├── fjf488i6.pas ├── fjf488m3.pas ├── fjf488o7.pas ├── fjf493c.pas ├── fjf531a.pas ├── fjf531b.pas ├── fjf532.pas ├── fjf544b.pas ├── fjf546d.pas ├── fjf546e.pas ├── fjf558d.pas ├── fjf566a.pas ├── fjf566c.pas ├── fjf566d.pas ├── fjf579a.pas ├── fjf579b.pas ├── fjf632b.pas ├── fjf648a.pas ├── fjf678b.pas ├── fjf704.pas ├── fjf714l.pas ├── fjf714m.pas ├── fjf721b.pas ├── fjf726f.pas ├── fjf726g.pas ├── fjf738d.pas ├── fjf745a.pas ├── fjf745b.pas ├── fjf751f.pas ├── fjf758u.pas ├── fjf770.pas ├── fjf791.pas ├── fjf82.pas ├── fjf839c.pas ├── fjf865a.pas ├── fjf865b.pas ├── fjf887a.pas ├── fjf896.pas ├── fjf901a.pas ├── fjf901b.pas ├── fjf904f.pas ├── fjf915jj.pas ├── fjf915ll.pas ├── fjf921g2.pas ├── fjf93.pas ├── fjf974e.pas ├── fjf994b.pas ├── grp1a.pas ├── mod15h.pas ├── peter2a.pas ├── peter2b.pas ├── peter2c.pas ├── pmod1.pas ├── rphil2.pas ├── russ3u.pas ├── sam12.pas ├── size.out ├── subrw2.pas ├── sven14b.pas ├── sven18a.pas ├── unitinfile.pas ├── az27.pas ├── az30.pas ├── bo4-14.pas ├── bo4_14u.pas ├── bo4_15u.pas ├── chief28.pas ├── chief49.pas ├── couper15.out ├── dblimp2.pas ├── fjf1018g.pas ├── fjf102.pas ├── fjf1037b.pas ├── fjf1064a.pas ├── fjf1064e.pas ├── fjf1066s.pas ├── fjf114.pas ├── fjf117.pas ├── fjf151.pas ├── fjf201b.pas ├── fjf206g.pas ├── fjf209.pas ├── fjf211a.pas ├── fjf211e.pas ├── fjf211eu.pas ├── fjf211f.pas ├── fjf211fu.pas ├── fjf211g.pas ├── fjf211h.pas ├── fjf211i.pas ├── fjf211j.pas ├── fjf211k.pas ├── fjf211l.pas ├── fjf211m.pas ├── fjf211n.pas ├── fjf211nu.pas ├── fjf211o.pas ├── fjf211p.pas ├── fjf211q.pas ├── fjf235b.pas ├── fjf245c.pas ├── fjf250.pas ├── fjf251c.pas ├── fjf251d.pas ├── fjf255d.pas ├── fjf270a.pas ├── fjf270b.pas ├── fjf277.pas ├── fjf29.pas ├── fjf330u.pas ├── fjf392.pas ├── fjf427b.pas ├── fjf430g.pas ├── fjf430o.pas ├── fjf430p.pas ├── fjf436b.pas ├── fjf488m2.pas ├── fjf488n2.pas ├── fjf488n3.pas ├── fjf488vi.pas ├── fjf488vl.pas ├── fjf495a8.pas ├── fjf495b8.pas ├── fjf495c8.pas ├── fjf495d8.pas ├── fjf495e8.pas ├── fjf495f8.pas ├── fjf52.pas ├── fjf545.pas ├── fjf562e.pas ├── fjf562g.pas ├── fjf562i.pas ├── fjf566b.pas ├── fjf566g.pas ├── fjf566h.pas ├── fjf58.pas ├── fjf625.pas ├── fjf628a.pas ├── fjf641d.pas ├── fjf641f.pas ├── fjf641h.pas ├── fjf653.pas ├── fjf665d.pas ├── fjf665e.pas ├── fjf693a.pas ├── fjf707b.pas ├── fjf736m.pas ├── fjf744.pas ├── fjf745c.pas ├── fjf745d.pas ├── fjf751v.pas ├── fjf751w.pas ├── fjf758v.pas ├── fjf764f.pas ├── fjf781a.pas └── fjf801.pas ├── doc ├── info │ └── .git_is_stupid ├── generated │ └── .git_is_stupid ├── de │ ├── README │ ├── gpcs.texi │ └── homepage.def ├── hr │ ├── gpc.1 │ ├── faq.texi │ ├── gpc.texi │ ├── gpcs.texi │ ├── libs.texi │ ├── about.texi │ ├── invoke.texi │ ├── authors.texi │ ├── homepage.def │ ├── index.html.in │ ├── keywords.texi │ ├── purpose.texi │ ├── resources.texi │ ├── support.texi │ ├── welcome.texi │ └── README ├── en │ ├── todo.texi │ ├── authors.texi │ ├── resources.texi │ └── README ├── es │ ├── gpcs.texi │ └── README └── images │ ├── de.png │ ├── en.png │ ├── es.png │ ├── hr.png │ ├── vh40.png │ ├── crtdemo.png │ ├── gradient.pdf │ ├── gradient.png │ ├── GnuPascal.pdf │ ├── GnuPascal.png │ ├── grx-screen.png │ ├── peng-screen.png │ ├── crtdemo-small.png │ ├── rhide-screen.png │ ├── GnuPascal-small.png │ ├── dsh_anybrowser.png │ ├── grx-screen-small.png │ ├── peng-screen-small.png │ └── rhide-screen-small.png ├── rts └── rts-version ├── cpp_predef.h ├── units └── gpc-bp.pas └── demos ├── gettextdemo.pas └── parserdemo.pas /p/test/fjf126.in: -------------------------------------------------------------------------------- 1 | OK -------------------------------------------------------------------------------- /p/test/fixcr.in: -------------------------------------------------------------------------------- 1 | OK 2 | -------------------------------------------------------------------------------- /p/test/fjf119.in: -------------------------------------------------------------------------------- 1 | OK 2 | -------------------------------------------------------------------------------- /p/test/fjf120.in: -------------------------------------------------------------------------------- 1 | OK 2 | -------------------------------------------------------------------------------- /p/test/hanoi.in: -------------------------------------------------------------------------------- 1 | 10 2 | -------------------------------------------------------------------------------- /p/test/index.in: -------------------------------------------------------------------------------- 1 | 2 2 | -------------------------------------------------------------------------------- /p/test/kevin6.in: -------------------------------------------------------------------------------- 1 | OK 2 | -------------------------------------------------------------------------------- /p/test/rdwt.in: -------------------------------------------------------------------------------- 1 | 1024 2 | -------------------------------------------------------------------------------- /p/test/setest.in: -------------------------------------------------------------------------------- 1 | 23 2 | -------------------------------------------------------------------------------- /p/doc/info/.git_is_stupid: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /p/test/basic.in: -------------------------------------------------------------------------------- 1 | 17 23 2 | -------------------------------------------------------------------------------- /p/test/basic.out: -------------------------------------------------------------------------------- 1 | 1723 2 | -------------------------------------------------------------------------------- /p/test/fjf307b.in: -------------------------------------------------------------------------------- 1 | 42 -17 2 | -------------------------------------------------------------------------------- /p/test/fjf432.in: -------------------------------------------------------------------------------- 1 | baz 2 | -------------------------------------------------------------------------------- /p/test/gordon.out: -------------------------------------------------------------------------------- 1 | False 2 | -------------------------------------------------------------------------------- /p/test/kevin7.in: -------------------------------------------------------------------------------- 1 | O 2 | K 3 | -------------------------------------------------------------------------------- /p/test/modtest.out: -------------------------------------------------------------------------------- 1 | 3 2 | -------------------------------------------------------------------------------- /p/test/size.in: -------------------------------------------------------------------------------- 1 | 17 orange 2 | -------------------------------------------------------------------------------- /p/doc/generated/.git_is_stupid: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /p/rts/rts-version: -------------------------------------------------------------------------------- 1 | 20070904 2 | -------------------------------------------------------------------------------- /p/test/chuck5.in: -------------------------------------------------------------------------------- 1 | foo 2 | bar 3 | -------------------------------------------------------------------------------- /p/test/fjf307c.in: -------------------------------------------------------------------------------- 1 | 42 - 2 | 17 3 | -------------------------------------------------------------------------------- /p/test/fjf487a.out: -------------------------------------------------------------------------------- 1 | 2147483648 2 | -------------------------------------------------------------------------------- /p/test/mike1.out: -------------------------------------------------------------------------------- 1 | Hello world 2 | -------------------------------------------------------------------------------- /p/test/peter.in: -------------------------------------------------------------------------------- 1 | +,- *;/ % 2 | -------------------------------------------------------------------------------- /p/test/arp3.out: -------------------------------------------------------------------------------- 1 | CM1 > CM2 2 | aeiou -------------------------------------------------------------------------------- /p/test/fjf709.out: -------------------------------------------------------------------------------- 1 | 1 2 | 2 3 | 4 4 | -------------------------------------------------------------------------------- /p/test/ian4a.inc: -------------------------------------------------------------------------------- 1 | const O = 'O'; 2 | -------------------------------------------------------------------------------- /p/test/ian4b.inc: -------------------------------------------------------------------------------- 1 | const K = 'K'; 2 | -------------------------------------------------------------------------------- /p/test/link8c.c: -------------------------------------------------------------------------------- 1 | Huddeldibuddel;-) 2 | -------------------------------------------------------------------------------- /p/test/prep1a.inc: -------------------------------------------------------------------------------- 1 | writeln('OK') 2 | -------------------------------------------------------------------------------- /p/test/procs.in: -------------------------------------------------------------------------------- 1 | abc 2 | def 3 | 4 | -------------------------------------------------------------------------------- /p/test/cfor.in: -------------------------------------------------------------------------------- 1 | 10 1000 100000 1.0e+10 2 | -------------------------------------------------------------------------------- /p/test/emil25.in: -------------------------------------------------------------------------------- 1 | OK 2 | -------------------------------------------------------------------------------- /p/test/fjf334.in: -------------------------------------------------------------------------------- 1 | foo 2 | bar 3 | baz 4 | -------------------------------------------------------------------------------- /p/test/fjf430l.inc: -------------------------------------------------------------------------------- 1 | WriteLn ('failed') 2 | -------------------------------------------------------------------------------- /p/test/fjf485.out: -------------------------------------------------------------------------------- 1 | qwer 2 | xy 3 | xy 4 | -------------------------------------------------------------------------------- /p/test/hugereal.in: -------------------------------------------------------------------------------- 1 | 123456789.987654321 2 | -------------------------------------------------------------------------------- /p/test/math.out: -------------------------------------------------------------------------------- 1 | oh boyit works !!! 2 | -------------------------------------------------------------------------------- /p/test/t05.out: -------------------------------------------------------------------------------- 1 | 10 2.928968253968254e+00 2 | -------------------------------------------------------------------------------- /p/test/t06.out: -------------------------------------------------------------------------------- 1 | 10 2.928968253968254e+00 2 | -------------------------------------------------------------------------------- /p/test/t07.out: -------------------------------------------------------------------------------- 1 | 10 2.928968253968254e+00 2 | -------------------------------------------------------------------------------- /p/test/t18.out: -------------------------------------------------------------------------------- 1 | 1.000000000000000e+00 1 2 | -------------------------------------------------------------------------------- /p/test/fjf307a.in: -------------------------------------------------------------------------------- 1 | 2 | 42 3 | 4 | 5 | 17 6 | -------------------------------------------------------------------------------- /p/test/kevin15.in: -------------------------------------------------------------------------------- 1 | ABCDEFGHIJKLMNOPQRSTUVWXYZ 2 | -------------------------------------------------------------------------------- /p/test/procs.out: -------------------------------------------------------------------------------- 1 | Enter two lines 2 | abc 3 | -------------------------------------------------------------------------------- /p/test/scaltst.out: -------------------------------------------------------------------------------- 1 | 1.00 2 | False 3 | True 4 | -------------------------------------------------------------------------------- /p/test/setret.out: -------------------------------------------------------------------------------- 1 | before 36 2 | after 19 3 | -------------------------------------------------------------------------------- /p/test/theo1b.out: -------------------------------------------------------------------------------- 1 | 10 2 | 10 3 | 10 4 | 10 5 | -------------------------------------------------------------------------------- /p/test/fjf60.run: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | ./"$A_OUT" 2>&1 3 | -------------------------------------------------------------------------------- /p/test/numericio.out: -------------------------------------------------------------------------------- 1 | 15900.38750 2 | 15900.38750 3 | -------------------------------------------------------------------------------- /p/test/ffunc.out: -------------------------------------------------------------------------------- 1 | in bar x = 2 2 | in forfunc bar = 3 3 | -------------------------------------------------------------------------------- /p/test/fjf1036.out: -------------------------------------------------------------------------------- 1 | afFbfFcgfFfFG2dgfFfFG efgfFfFG0.00h 2 | -------------------------------------------------------------------------------- /p/test/ian6.out: -------------------------------------------------------------------------------- 1 | #ifdef __GPC__ 2 | defined (__GPC__) 3 | -------------------------------------------------------------------------------- /p/test/kevin15.out: -------------------------------------------------------------------------------- 1 | D 2 | D 3 | E 4 | F 5 | G 6 | H 7 | -------------------------------------------------------------------------------- /p/test/md5test.in: -------------------------------------------------------------------------------- 1 | Some test data for the MD5 unit... 2 | -------------------------------------------------------------------------------- /p/cpp_predef.h: -------------------------------------------------------------------------------- 1 | #define GPC_CPP_PREDEFINES CPP_PREDEFINES 2 | -------------------------------------------------------------------------------- /p/test/artur1a.out: -------------------------------------------------------------------------------- 1 | F1(1,1)1 1 2 | F1(2,2)1 1 3 | F1(3,3)1 1 4 | -------------------------------------------------------------------------------- /p/test/artur1b.out: -------------------------------------------------------------------------------- 1 | F1(1,1)1 1 2 | F1(2,2)1 1 3 | F1(3,3)1 1 4 | -------------------------------------------------------------------------------- /p/test/emil20.in: -------------------------------------------------------------------------------- 1 | first line 2 | second line, with no terminator -------------------------------------------------------------------------------- /p/test/fjf380c.c: -------------------------------------------------------------------------------- 1 | char *foo() 2 | { 3 | return FOO; 4 | } 5 | -------------------------------------------------------------------------------- /p/test/fjf487b.out: -------------------------------------------------------------------------------- 1 | .......... 2 | 2 3 | 5 4 | -------------------------------------------------------------------------------- /p/test/insan.in: -------------------------------------------------------------------------------- 1 | wbggrb 2 | wbrgrr 3 | wbgwrg 4 | wrgwbr 5 | -------------------------------------------------------------------------------- /p/test/error.pas: -------------------------------------------------------------------------------- 1 | program error(output); 2 | 3 | begin { WRONG } 4 | -------------------------------------------------------------------------------- /p/test/nonlocgoto.out: -------------------------------------------------------------------------------- 1 | lvl0 called 2 | lvl2 called 3 | it worked 4 | -------------------------------------------------------------------------------- /p/test/t12.out: -------------------------------------------------------------------------------- 1 | 4.000000000000000e+00+ 6.000000000000000e+00i 2 | -------------------------------------------------------------------------------- /p/test/theo1a.out: -------------------------------------------------------------------------------- 1 | A 2 | B 3 | C 4 | D 5 | A 6 | B 7 | C 8 | D 9 | -------------------------------------------------------------------------------- /p/test/adam1.pas: -------------------------------------------------------------------------------- 1 | program Adam; 2 | 3 | begin 4 | Halt (7) 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/align.out: -------------------------------------------------------------------------------- 1 | foo =n <- bar =n <- nm =n <- 2 | cmp works 3 | -------------------------------------------------------------------------------- /p/test/fjf47.pas: -------------------------------------------------------------------------------- 1 | program fjf47; 2 | uses fjf47u; 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf519a.pas: -------------------------------------------------------------------------------- 1 | { program foo; } 2 | { COMPILE-CMD: fjf519a.cmp } 3 | -------------------------------------------------------------------------------- /p/test/fjf519b.pas: -------------------------------------------------------------------------------- 1 | { program foo; } 2 | { COMPILE-CMD: fjf519b.cmp } 3 | -------------------------------------------------------------------------------- /p/test/fjf519c.pas: -------------------------------------------------------------------------------- 1 | { program foo; } 2 | { COMPILE-CMD: fjf519c.cmp } 3 | -------------------------------------------------------------------------------- /p/test/fjf519d.pas: -------------------------------------------------------------------------------- 1 | { program foo; } 2 | { COMPILE-CMD: fjf519d.cmp } 3 | -------------------------------------------------------------------------------- /p/test/fjf519e.pas: -------------------------------------------------------------------------------- 1 | { program foo; } 2 | { COMPILE-CMD: fjf519e.cmp } 3 | -------------------------------------------------------------------------------- /p/test/fjf519f.pas: -------------------------------------------------------------------------------- 1 | { program foo; } 2 | { COMPILE-CMD: fjf519f.cmp } 3 | -------------------------------------------------------------------------------- /p/test/fjf519g.pas: -------------------------------------------------------------------------------- 1 | { program foo; } 2 | { COMPILE-CMD: fjf519g.cmp } 3 | -------------------------------------------------------------------------------- /p/test/fjf871.in: -------------------------------------------------------------------------------- 1 | O 2 | 3 | 4 | K 5 | 6 | 7 | -------------------------------------------------------------------------------- /p/test/nmaze.in: -------------------------------------------------------------------------------- 1 | 10 2 | 10 3 | 17 4 | y 5 | 12 6 | 12 7 | 23 8 | n 9 | -------------------------------------------------------------------------------- /p/test/pvs1.out: -------------------------------------------------------------------------------- 1 | unone[5] = 'A' = 65 2 | PASS...6.6.5.4-1 3 | -------------------------------------------------------------------------------- /p/doc/de/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/de/README -------------------------------------------------------------------------------- /p/doc/hr/gpc.1: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/gpc.1 -------------------------------------------------------------------------------- /p/test/fjf200.pas: -------------------------------------------------------------------------------- 1 | program fjf200; 2 | uses fjf200a; 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf519f.in: -------------------------------------------------------------------------------- 1 | program foo; 2 | begin 3 | WriteLn ('OK') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf519g.in: -------------------------------------------------------------------------------- 1 | program foo; 2 | begin 3 | WriteLn ('OK') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/form.out: -------------------------------------------------------------------------------- 1 | I take no parameters 2 | My argument is 12 3 | success 4 | -------------------------------------------------------------------------------- /p/test/hanoi.out: -------------------------------------------------------------------------------- 1 | Number: 2 | For 10 1023 steps, time 0 3 | -------------------------------------------------------------------------------- /p/test/t08.out: -------------------------------------------------------------------------------- 1 | 0.6926474306 0.6926474306 2 | 0.0000055550 0.0000055550 3 | -------------------------------------------------------------------------------- /p/doc/de/gpcs.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/de/gpcs.texi -------------------------------------------------------------------------------- /p/doc/en/todo.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/en/todo.texi -------------------------------------------------------------------------------- /p/doc/es/gpcs.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/es/gpcs.texi -------------------------------------------------------------------------------- /p/doc/hr/faq.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/faq.texi -------------------------------------------------------------------------------- /p/doc/hr/gpc.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/gpc.texi -------------------------------------------------------------------------------- /p/doc/hr/gpcs.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/gpcs.texi -------------------------------------------------------------------------------- /p/doc/hr/libs.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/libs.texi -------------------------------------------------------------------------------- /p/test/fjf165a.c: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/test/fjf165a.c -------------------------------------------------------------------------------- /p/test/fjf165a.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/test/fjf165a.pas -------------------------------------------------------------------------------- /p/test/fjf165b.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/test/fjf165b.pas -------------------------------------------------------------------------------- /p/test/fjf416a.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/test/fjf416a.pas -------------------------------------------------------------------------------- /p/test/fjf416b.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/test/fjf416b.pas -------------------------------------------------------------------------------- /p/test/fjf546a.pas: -------------------------------------------------------------------------------- 1 | program fjf546a; 2 | begin 3 | WriteLn ("OK") 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf60.pas: -------------------------------------------------------------------------------- 1 | program fjf60; 2 | begin 3 | WriteLn (StdErr, 'OK') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/oemtest.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/test/oemtest.pas -------------------------------------------------------------------------------- /p/test/sven11.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/test/sven11.pas -------------------------------------------------------------------------------- /p/test/sven15.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/test/sven15.pas -------------------------------------------------------------------------------- /p/test/sven18u.pas: -------------------------------------------------------------------------------- 1 | unit sven18foo; 2 | 3 | interface 4 | 5 | uses Sven18u; 6 | -------------------------------------------------------------------------------- /p/units/gpc-bp.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/units/gpc-bp.pas -------------------------------------------------------------------------------- /p/doc/hr/about.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/about.texi -------------------------------------------------------------------------------- /p/doc/hr/invoke.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/invoke.texi -------------------------------------------------------------------------------- /p/doc/images/de.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/de.png -------------------------------------------------------------------------------- /p/doc/images/en.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/en.png -------------------------------------------------------------------------------- /p/doc/images/es.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/es.png -------------------------------------------------------------------------------- /p/doc/images/hr.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/hr.png -------------------------------------------------------------------------------- /p/test/afjf815.pas: -------------------------------------------------------------------------------- 1 | program fjf815; 2 | 3 | uses fjf815u; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/chief47a.pas: -------------------------------------------------------------------------------- 1 | program Chief47a; 2 | 3 | uses Chief48; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/chief47b.pas: -------------------------------------------------------------------------------- 1 | program Chief47b; 2 | 3 | uses Chief50; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf314.pas: -------------------------------------------------------------------------------- 1 | program fjf314; 2 | 3 | begin 4 | writeln ('O', 'K') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf405.pas: -------------------------------------------------------------------------------- 1 | program fjf405; 2 | 3 | uses fjf405a; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf406.pas: -------------------------------------------------------------------------------- 1 | program fjf406; 2 | 3 | uses fjf406b; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf407.pas: -------------------------------------------------------------------------------- 1 | program fjf407; 2 | 3 | uses fjf407a; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf410.pas: -------------------------------------------------------------------------------- 1 | program fjf410; 2 | 3 | begin 4 | WriteLn (#$4f#$4b) 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf464b.pas: -------------------------------------------------------------------------------- 1 | program fjf464b; 2 | 3 | uses fjf464v; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf464d.pas: -------------------------------------------------------------------------------- 1 | program fjf464d; 2 | 3 | uses fjf464w; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf487a.pas: -------------------------------------------------------------------------------- 1 | program fjf487a; 2 | begin 3 | WriteLn ($80000000) 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf756a.pas: -------------------------------------------------------------------------------- 1 | program fjf756a (Foo); { WRONG } 2 | 3 | begin 4 | 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf760b.pas: -------------------------------------------------------------------------------- 1 | program fjf760b; 2 | 3 | uses fjf760u; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf835e.pas: -------------------------------------------------------------------------------- 1 | program fjf835e; 2 | 3 | uses fjf835w; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf881.pas: -------------------------------------------------------------------------------- 1 | program fjf881; 2 | 3 | uses fjf881m; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/goto7.pas: -------------------------------------------------------------------------------- 1 | Program Goto7; 2 | 3 | uses 4 | Goto7U; 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/hamachi.out: -------------------------------------------------------------------------------- 1 | Answer is 1 2 | Function b returns Answer is 2 3 | 5 4 | -------------------------------------------------------------------------------- /p/test/ian2.inc: -------------------------------------------------------------------------------- 1 | #ifndef Funny 2 | #define Funny 1 3 | #endif 4 | 5 | {**} 6 | {**} 7 | -------------------------------------------------------------------------------- /p/test/link4.c: -------------------------------------------------------------------------------- 1 | #include 2 | 3 | void ok () 4 | { 5 | puts ("OK"); 6 | } 7 | -------------------------------------------------------------------------------- /p/test/nonloc4goto.out: -------------------------------------------------------------------------------- 1 | lvl0 called 2 | lvl2 executing 3 | trash = 639 4 | it worked 5 | -------------------------------------------------------------------------------- /p/test/sven8.pas: -------------------------------------------------------------------------------- 1 | Program Test; 2 | 3 | begin 4 | writeln ( #79#75 ); 5 | end. 6 | -------------------------------------------------------------------------------- /p/demos/gettextdemo.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/demos/gettextdemo.pas -------------------------------------------------------------------------------- /p/demos/parserdemo.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/demos/parserdemo.pas -------------------------------------------------------------------------------- /p/doc/de/homepage.def: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/de/homepage.def -------------------------------------------------------------------------------- /p/doc/en/authors.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/en/authors.texi -------------------------------------------------------------------------------- /p/doc/en/resources.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/en/resources.texi -------------------------------------------------------------------------------- /p/doc/hr/authors.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/authors.texi -------------------------------------------------------------------------------- /p/doc/hr/homepage.def: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/homepage.def -------------------------------------------------------------------------------- /p/doc/hr/index.html.in: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/index.html.in -------------------------------------------------------------------------------- /p/doc/hr/keywords.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/keywords.texi -------------------------------------------------------------------------------- /p/doc/hr/purpose.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/purpose.texi -------------------------------------------------------------------------------- /p/doc/hr/resources.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/resources.texi -------------------------------------------------------------------------------- /p/doc/hr/support.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/support.texi -------------------------------------------------------------------------------- /p/doc/hr/welcome.texi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/hr/welcome.texi -------------------------------------------------------------------------------- /p/doc/images/vh40.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/vh40.png -------------------------------------------------------------------------------- /p/test/chuck6.out: -------------------------------------------------------------------------------- 1 | -10 2 | 10 3 | -10 10 4 | -10 10 5 | -------------------------------------------------------------------------------- /p/test/err1.pas: -------------------------------------------------------------------------------- 1 | # 1 "error1.pas" 1 2 | { FLAG -x Preprocessed-Pascal } 3 | { WRONG } 4 | -------------------------------------------------------------------------------- /p/test/expotst.in: -------------------------------------------------------------------------------- 1 | 1.0e-23 2 | 1.0e-17 3 | 0.1 4 | 0.0 5 | 10.0 6 | 1.0e+17 7 | 1.0e+23 8 | -------------------------------------------------------------------------------- /p/test/fjf1063u.pas: -------------------------------------------------------------------------------- 1 | program fjf1063u; 2 | 3 | uses fjf1064u; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1063w.pas: -------------------------------------------------------------------------------- 1 | program fjf1063w; 2 | 3 | uses fjf1064w; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1063y.pas: -------------------------------------------------------------------------------- 1 | program fjf1063y; 2 | 3 | uses fjf1064y; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1065a.pas: -------------------------------------------------------------------------------- 1 | program fjf1065a; 2 | 3 | uses fjf1066a; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1065q.pas: -------------------------------------------------------------------------------- 1 | program fjf1065q; 2 | 3 | uses fjf1066q; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1065v.pas: -------------------------------------------------------------------------------- 1 | program fjf1065v; 2 | 3 | uses fjf1066v; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf185.pas: -------------------------------------------------------------------------------- 1 | program fjf185; 2 | 3 | uses fjf185a, fjf185b; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf365.pas: -------------------------------------------------------------------------------- 1 | program fjf365; 2 | begin 3 | WriteLn (Copy ('OK', 1, 2)) 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf5.pas: -------------------------------------------------------------------------------- 1 | program fjf5; 2 | uses fjf5u; 3 | var p:r; 4 | begin 5 | f(p) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf625a.pas: -------------------------------------------------------------------------------- 1 | unit fjf625a; 2 | 3 | interface 4 | 5 | implementation 6 | 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf782.pas: -------------------------------------------------------------------------------- 1 | program fjf782; 2 | 3 | begin 4 | var c: foo { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf882v.pas: -------------------------------------------------------------------------------- 1 | unit fjf882v; 2 | 3 | interface 4 | 5 | implementation 6 | 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/kevin17.pas: -------------------------------------------------------------------------------- 1 | program test(output); var i: 4..1;begin writeln(i) end. { WRONG } 2 | -------------------------------------------------------------------------------- /p/test/mod17a.pas: -------------------------------------------------------------------------------- 1 | program mod17a; 2 | import mod17v2; {WRONG} 3 | begin 4 | end 5 | . 6 | -------------------------------------------------------------------------------- /p/test/mod17b.pas: -------------------------------------------------------------------------------- 1 | program mod17b; 2 | import mod17v4; {WRONG} 3 | begin 4 | end 5 | . 6 | -------------------------------------------------------------------------------- /p/test/mod17c.pas: -------------------------------------------------------------------------------- 1 | program mod17c; 2 | import mod17v6; {WRONG} 3 | begin 4 | end 5 | . 6 | -------------------------------------------------------------------------------- /p/test/t09.out: -------------------------------------------------------------------------------- 1 | 100 0 2 | 0 0 3 | 10000 -10 4 | -------------------------------------------------------------------------------- /p/test/waldek1.pas: -------------------------------------------------------------------------------- 1 | { COMPILE-CMD: waldek1.cmp } 2 | 3 | program tp; 4 | begin 5 | end. 6 | -------------------------------------------------------------------------------- /p/doc/images/crtdemo.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/crtdemo.png -------------------------------------------------------------------------------- /p/doc/images/gradient.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/gradient.pdf -------------------------------------------------------------------------------- /p/doc/images/gradient.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/gradient.png -------------------------------------------------------------------------------- /p/test/chief16v.pas: -------------------------------------------------------------------------------- 1 | Unit Chief16v; 2 | 3 | Interface 4 | 5 | Implementation 6 | 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/chief46.pas: -------------------------------------------------------------------------------- 1 | program chief46; 2 | uses chief46u; 3 | begin 4 | Writeln (foo); 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/dblimp2v.pas: -------------------------------------------------------------------------------- 1 | Unit DblImp2v; 2 | 3 | Interface 4 | 5 | Implementation 6 | 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1058u.pas: -------------------------------------------------------------------------------- 1 | unit fjf1058u; 2 | interface 3 | const a = 1; 4 | implementation 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf1068.pas: -------------------------------------------------------------------------------- 1 | program fjf1068 (Output); 2 | 3 | uses fjf1068u; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf136.pas: -------------------------------------------------------------------------------- 1 | program fjf136; 2 | var a:file; 3 | begin 4 | reset(a) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf200a.pas: -------------------------------------------------------------------------------- 1 | unit fjf200a; 2 | interface 3 | implementation 4 | uses fjf200b; 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf224.run: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | if [ -r "$A_OUT" ]; then ./"$A_OUT" OK; else echo failed; fi 3 | -------------------------------------------------------------------------------- /p/test/fjf372.pas: -------------------------------------------------------------------------------- 1 | program fjf372; 2 | 3 | uses fjf372u; 4 | 5 | begin 6 | foo 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf488i4.pas: -------------------------------------------------------------------------------- 1 | program fjf488i4; 2 | 3 | begin 4 | WriteLn (Trim ('OK ')) 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf571a.pas: -------------------------------------------------------------------------------- 1 | program fjf571a; 2 | 3 | uses fjf571u; 4 | 5 | begin 6 | aaa 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf571b.pas: -------------------------------------------------------------------------------- 1 | program fjf571b; 2 | 3 | uses fjf571v; 4 | 5 | begin 6 | aaa 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf571c.pas: -------------------------------------------------------------------------------- 1 | program fjf571c; 2 | 3 | uses fjf571w; 4 | 5 | begin 6 | aaa 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf5a.pas: -------------------------------------------------------------------------------- 1 | program fjf5a; 2 | uses fjf5b; 3 | var p:r; 4 | begin 5 | f(p) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf757a.pas: -------------------------------------------------------------------------------- 1 | program fjf757a; 2 | 3 | uses fjf757n; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf757b.pas: -------------------------------------------------------------------------------- 1 | program fjf757b; 2 | 3 | uses fjf757n; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf757c.pas: -------------------------------------------------------------------------------- 1 | program fjf757c; 2 | 3 | uses fjf757o; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf759.pas: -------------------------------------------------------------------------------- 1 | program fjf759; 2 | 3 | uses fjf759m; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf79.pas: -------------------------------------------------------------------------------- 1 | program fjf79; 2 | uses fjf79u; 3 | var b:t; 4 | begin 5 | p(0,b) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf814u.pas: -------------------------------------------------------------------------------- 1 | unit fjf814u; 2 | 3 | interface 4 | 5 | const s = 'OK'; 6 | 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf835a.pas: -------------------------------------------------------------------------------- 1 | program fjf835a; 2 | 3 | uses fjf835u; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf835d.pas: -------------------------------------------------------------------------------- 1 | program fjf835d; 2 | 3 | uses fjf835v; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf837h.pas: -------------------------------------------------------------------------------- 1 | program fjf837h; 2 | 3 | import fjf837m; { WARN } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf854.pas: -------------------------------------------------------------------------------- 1 | program fjf854; 2 | 3 | uses fjf854m; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf863b.pas: -------------------------------------------------------------------------------- 1 | program fjf863b; 2 | 3 | begin 4 | WriteLn (--1) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf863c.pas: -------------------------------------------------------------------------------- 1 | program fjf863c; 2 | 3 | begin 4 | WriteLn (2*-1) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf877.pas: -------------------------------------------------------------------------------- 1 | program fjf877; 2 | 3 | begin 4 | WriteLn (10#4e5) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf882.pas: -------------------------------------------------------------------------------- 1 | program fjf882; 2 | 3 | uses fjf882u; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf913a.pas: -------------------------------------------------------------------------------- 1 | program fjf913a; 2 | 3 | begin 4 | WriteLn (# 42) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf913b.pas: -------------------------------------------------------------------------------- 1 | program fjf913b; 2 | 3 | begin 4 | WriteLn (# $42) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf919b.pas: -------------------------------------------------------------------------------- 1 | program fjf919b; 2 | 3 | uses fjf919v; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf948.pas: -------------------------------------------------------------------------------- 1 | program fjf948; 2 | 3 | uses fjf948u; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/mike1.pas: -------------------------------------------------------------------------------- 1 | program hello; 2 | begin 3 | page; 4 | writeln("Hello world"); 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/waldek1.cmp: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | $PC_WITHOUT_GP -o "$A_OUT" --interface-only -S $2 && echo OK 3 | -------------------------------------------------------------------------------- /p/doc/images/GnuPascal.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/GnuPascal.pdf -------------------------------------------------------------------------------- /p/doc/images/GnuPascal.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/GnuPascal.png -------------------------------------------------------------------------------- /p/doc/images/grx-screen.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/grx-screen.png -------------------------------------------------------------------------------- /p/doc/images/peng-screen.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/peng-screen.png -------------------------------------------------------------------------------- /p/test/adam2.pas: -------------------------------------------------------------------------------- 1 | program adam2; 2 | uses adam2u; 3 | 4 | begin 5 | ImpSgnList.Init(8); 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/bill4.pas: -------------------------------------------------------------------------------- 1 | Program Bill4; 2 | 3 | uses 4 | Bill4w; 5 | 6 | begin 7 | WriteOK; 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/chief43b.pas: -------------------------------------------------------------------------------- 1 | program goodprog2; 2 | uses chief43v; 3 | begin 4 | Write ('K'); 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/dimwit1.pas: -------------------------------------------------------------------------------- 1 | program dimwit1; 2 | type st = set of 1..0; { WRONG } 3 | begin 4 | end 5 | . 6 | -------------------------------------------------------------------------------- /p/test/fjf137.pas: -------------------------------------------------------------------------------- 1 | program fjf137; 2 | var a:file; 3 | begin 4 | reset(a,'') { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf195u.pas: -------------------------------------------------------------------------------- 1 | unit fjf195u; 2 | interface 3 | const ko=['K','O']; 4 | implementation 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf200c.pas: -------------------------------------------------------------------------------- 1 | program fjf200c; 2 | uses fjf200a; 3 | { only worked once } 4 | begin 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf278.pas: -------------------------------------------------------------------------------- 1 | program fjf278; 2 | 3 | uses fjf278u; 4 | 5 | begin 6 | writeln (f) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf399a.pas: -------------------------------------------------------------------------------- 1 | program fjf399a; 2 | begin 3 | WriteLn ('G' - 1, 'ailed') { WRONG } 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf424b.pas: -------------------------------------------------------------------------------- 1 | program fjf424b; 2 | begin 3 | WriteLn ('failed ', 2**-2) { WRONG } 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf573.pas: -------------------------------------------------------------------------------- 1 | program fjf573; 2 | begin 3 | WriteLn ('failed ', 1e100000) { WRONG } 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf667.pas: -------------------------------------------------------------------------------- 1 | program fjf667; 2 | 3 | import fjf667m; 4 | 5 | begin 6 | p ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf809b.pas: -------------------------------------------------------------------------------- 1 | program fjf809b; 2 | 3 | uses foo in 42; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf814.pas: -------------------------------------------------------------------------------- 1 | program fjf814; 2 | 3 | uses fjf814u; 4 | 5 | begin 6 | WriteLn (s) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf821k.pas: -------------------------------------------------------------------------------- 1 | program fjf821k; 2 | 3 | var f: AnyFile; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf835b.pas: -------------------------------------------------------------------------------- 1 | program fjf835b; 2 | 3 | import fjf835m; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf835c.pas: -------------------------------------------------------------------------------- 1 | program fjf835c; 2 | 3 | import fjf835n; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf863d.pas: -------------------------------------------------------------------------------- 1 | program fjf863d; 2 | 3 | begin 4 | WriteLn (3+++--+-+-4) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf904j.pas: -------------------------------------------------------------------------------- 1 | program fjf904j; 2 | begin 3 | CompilerAssert (True, 42) { WRONG } 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf921h.pas: -------------------------------------------------------------------------------- 1 | program fjf921h; 2 | 3 | import fjf921t2; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf921k.pas: -------------------------------------------------------------------------------- 1 | program fjf921k; 2 | 3 | import fjf921w; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf921l.pas: -------------------------------------------------------------------------------- 1 | program fjf921l; 2 | 3 | import fjf921x2; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/link1b.pas: -------------------------------------------------------------------------------- 1 | Program Link1b; 2 | 3 | uses 4 | Link1u; 5 | 6 | begin 7 | OK; 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/maur6.pas: -------------------------------------------------------------------------------- 1 | program bug; 2 | uses maur6u,maur6uu; 3 | begin 4 | writeln(O,K); 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/real.out: -------------------------------------------------------------------------------- 1 | 0.4794255386 2 | 0.7071067812 3 | -0.6931471806 4 | 1.6487212707 5 | 0.8775825619 6 | -------------------------------------------------------------------------------- /p/test/stro2.pas: -------------------------------------------------------------------------------- 1 | program stro2; 2 | begin 3 | write(StringOf('')); 4 | writeln('OK') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/sven18b.pas: -------------------------------------------------------------------------------- 1 | program Sven18b; 2 | 3 | uses Sven18u; { WRONG } 4 | 5 | begin 6 | 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/sven18c.pas: -------------------------------------------------------------------------------- 1 | program Sven18c; 2 | 3 | uses Sven18v; { WRONG } 4 | 5 | begin 6 | 7 | end. 8 | -------------------------------------------------------------------------------- /p/doc/en/README: -------------------------------------------------------------------------------- 1 | This directory contains the English version of GNU Pascal's Texinfo 2 | documentation. 3 | -------------------------------------------------------------------------------- /p/doc/images/crtdemo-small.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/crtdemo-small.png -------------------------------------------------------------------------------- /p/doc/images/rhide-screen.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/rhide-screen.png -------------------------------------------------------------------------------- /p/test/chief43a.pas: -------------------------------------------------------------------------------- 1 | program goodprog; 2 | uses chief43u; 3 | begin 4 | Write (pfoo^[14]); 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/confarr9.pas: -------------------------------------------------------------------------------- 1 | Program ConfArr9; 2 | 3 | uses 4 | CA9Test1; 5 | 6 | begin 7 | Test; 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/esven2.pas: -------------------------------------------------------------------------------- 1 | Program ESven2; 2 | 3 | uses esven2u; 4 | 5 | begin 6 | writeln ( 'OK' ); 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf101.pas: -------------------------------------------------------------------------------- 1 | Program fjf101; 2 | 3 | { FLAG --uses=fjf101u } 4 | 5 | begin 6 | OK; 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1066c.pas: -------------------------------------------------------------------------------- 1 | module fjf1066c; 2 | 3 | export Initialization = all; 4 | 5 | end; 6 | 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf162.pas: -------------------------------------------------------------------------------- 1 | program fjf162; 2 | uses fjf162; {WRONG} 3 | begin 4 | writeln('Failed.') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf200b.pas: -------------------------------------------------------------------------------- 1 | unit fjf200b; 2 | interface 3 | implementation 4 | begin 5 | writeln('OK') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf309.pas: -------------------------------------------------------------------------------- 1 | program fjf309; 2 | 3 | begin 4 | writeln ('failed ', 'K' * 'O') { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf332.pas: -------------------------------------------------------------------------------- 1 | program fjf332; 2 | 3 | begin 4 | writeln (#256102, 'ailed') { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf399b.pas: -------------------------------------------------------------------------------- 1 | program fjf399b; 2 | begin 3 | WriteLn ('G' - Chr (1), 'ailed') { WRONG } 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf431.pas: -------------------------------------------------------------------------------- 1 | program fjf431; 2 | 3 | uses fjf431u; 4 | 5 | begin 6 | WriteLn (Foo) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf462b.pas: -------------------------------------------------------------------------------- 1 | program fjf462b; 2 | 3 | uses fjf462u; 4 | 5 | begin 6 | WriteLn (foo) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf488vk.pas: -------------------------------------------------------------------------------- 1 | program fjf488vk; 2 | 3 | begin 4 | WriteLn (Succ ('N') + Pred ('L')) 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf514.pas: -------------------------------------------------------------------------------- 1 | program fjf514; 2 | begin 3 | WriteLn ('failed ', 42 + True) { WRONG } 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf538a.pas: -------------------------------------------------------------------------------- 1 | program fjf538a; 2 | 3 | uses fjf538u; 4 | 5 | begin 6 | WriteLn (o, k) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf542.pas: -------------------------------------------------------------------------------- 1 | program fjf542; 2 | begin 3 | {$W-} 4 | WriteLn (Concat ('OK')) 5 | {$W+} 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf544a.pas: -------------------------------------------------------------------------------- 1 | program fjf544a; 2 | 3 | begin 4 | WriteLn (UpCase ('o'), UpCase ('k')) 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf546c.pas: -------------------------------------------------------------------------------- 1 | program fjf546c; 2 | {$delphi} 3 | begin 4 | WriteLn ("failed") { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf551a.pas: -------------------------------------------------------------------------------- 1 | program fjf551a; 2 | 3 | begin 4 | WriteLn ('failed ', Int (3)) { WARN } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf558f.pas: -------------------------------------------------------------------------------- 1 | program fjf558f; 2 | 3 | begin 4 | WriteLn ('failed'); 5 | 9:{ WRONG } 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf605b.pas: -------------------------------------------------------------------------------- 1 | program fjf605b; 2 | 3 | uses fjf605u; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf629f.pas: -------------------------------------------------------------------------------- 1 | program fjf629f; 2 | 3 | begin 4 | WriteLn (FormatString ('O%s', 'K')) 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf641c.pas: -------------------------------------------------------------------------------- 1 | program fjf641c; 2 | 3 | begin 4 | WriteLn ('failed ', Re (42)) { WARN } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf641g.pas: -------------------------------------------------------------------------------- 1 | program fjf641g; 2 | 3 | begin 4 | WriteLn ('failed ', Im (42)) { WARN } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf649a.pas: -------------------------------------------------------------------------------- 1 | program fjf649a; 2 | 3 | begin 4 | WriteLn ('failed ', 0 >< 1) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf665a.pas: -------------------------------------------------------------------------------- 1 | program fjf665a; 2 | 3 | begin 4 | Assert (True); 5 | WriteLn ('OK') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf68.pas: -------------------------------------------------------------------------------- 1 | program fjf68; 2 | var a:^string; 3 | begin 4 | a:=@'OK'; 5 | writeln(a^) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf756b.pas: -------------------------------------------------------------------------------- 1 | program fjf756b; 2 | 3 | import fjf756m; { WRONG } 4 | 5 | begin 6 | 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf758c.pas: -------------------------------------------------------------------------------- 1 | program fjf758c; 2 | 3 | uses fjf758v; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf758g.pas: -------------------------------------------------------------------------------- 1 | program fjf758g; 2 | 3 | uses fjf758w; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf78.pas: -------------------------------------------------------------------------------- 1 | Program fjf78; 2 | 3 | uses fjf78u; 4 | 5 | begin 6 | writeln ( 'OK' ); 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf843.pas: -------------------------------------------------------------------------------- 1 | program fjf843; 2 | 3 | import fjf843m; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf870.pas: -------------------------------------------------------------------------------- 1 | program fjf870; 2 | 3 | begin 4 | WriteLn ('failed ', 10#4.2) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf921a.pas: -------------------------------------------------------------------------------- 1 | program fjf921a; 2 | 3 | import fjf921m; { WRONG } 4 | 5 | begin 6 | 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf921b.pas: -------------------------------------------------------------------------------- 1 | program fjf921b; 2 | 3 | import fjf921n; 4 | 5 | begin 6 | WriteLn (a) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf921e.pas: -------------------------------------------------------------------------------- 1 | program fjf921e; 2 | 3 | import fjf921q; 4 | 5 | begin 6 | WriteLn (b) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf970a.pas: -------------------------------------------------------------------------------- 1 | program fjf970a; 2 | 3 | const 4 | a = Index; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fnested.out: -------------------------------------------------------------------------------- 1 | I should print->f4 4 0.25 0.25 4 pr1 0.25 True<- 2 | f4 4 0.25 0.25 4 pr1 0.25 True 3 | -------------------------------------------------------------------------------- /p/test/grx1.pas: -------------------------------------------------------------------------------- 1 | Program GRX1; 2 | 3 | uses 4 | GRX1u; 5 | 6 | begin 7 | Foo ( 'OK' ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/grx2.pas: -------------------------------------------------------------------------------- 1 | Program GRX2; 2 | 3 | uses 4 | GRX2u; 5 | 6 | begin 7 | Foo ( 'OK' ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/kevin14.pas: -------------------------------------------------------------------------------- 1 | program kevin14; 2 | begin 3 | WriteLn ('failed ', 12.1 div 5.5) { WRONG } 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/nick1b.pas: -------------------------------------------------------------------------------- 1 | program my_main (input,output); 2 | import nick1m3; { WRONG } 3 | 4 | begin 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/nick2.pas: -------------------------------------------------------------------------------- 1 | program Nick2; 2 | 3 | import nick2m; 4 | 5 | begin 6 | mt1 (mt2 ('OK')) 7 | end. 8 | -------------------------------------------------------------------------------- /p/doc/images/GnuPascal-small.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/GnuPascal-small.png -------------------------------------------------------------------------------- /p/doc/images/dsh_anybrowser.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/dsh_anybrowser.png -------------------------------------------------------------------------------- /p/doc/images/grx-screen-small.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/grx-screen-small.png -------------------------------------------------------------------------------- /p/test/fail3.pas: -------------------------------------------------------------------------------- 1 | Program Fail3; 2 | 3 | begin 4 | writeln ( 'failed' ); 5 | Fail; { WRONG } 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1018h.pas: -------------------------------------------------------------------------------- 1 | program fjf1018h (Output); 2 | 3 | import fjf1018m; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1018k.pas: -------------------------------------------------------------------------------- 1 | program fjf1018k; 2 | import fjf1018s in 'fjf1018x.pas'; 3 | begin 4 | p 5 | end 6 | . 7 | -------------------------------------------------------------------------------- /p/test/fjf1018s.pas: -------------------------------------------------------------------------------- 1 | module fjf1018s; 2 | export fjf1018x = (s); 3 | const s = 'OK'; 4 | end; 5 | end 6 | . 7 | -------------------------------------------------------------------------------- /p/test/fjf1018y.pas: -------------------------------------------------------------------------------- 1 | module fjf1018y; 2 | export fjf1018k = (s); 3 | const s = 'OK'; 4 | end; 5 | end 6 | . 7 | -------------------------------------------------------------------------------- /p/test/fjf1063a.pas: -------------------------------------------------------------------------------- 1 | program fjf1063a; 2 | 3 | uses fjf1064a; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1063b.pas: -------------------------------------------------------------------------------- 1 | program fjf1063b; 2 | 3 | uses fjf1064b; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1063c.pas: -------------------------------------------------------------------------------- 1 | program fjf1063c; 2 | 3 | uses fjf1064c; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1063d.pas: -------------------------------------------------------------------------------- 1 | program fjf1063d; 2 | 3 | uses fjf1064d; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1063e.pas: -------------------------------------------------------------------------------- 1 | program fjf1063e; 2 | 3 | uses fjf1064e; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1063f.pas: -------------------------------------------------------------------------------- 1 | program fjf1063f; 2 | 3 | uses fjf1064f; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1063g.pas: -------------------------------------------------------------------------------- 1 | program fjf1063g; 2 | 3 | uses fjf1064g; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1063v.pas: -------------------------------------------------------------------------------- 1 | program fjf1063v; 2 | 3 | uses fjf1064v; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1063x.pas: -------------------------------------------------------------------------------- 1 | program fjf1063x; 2 | 3 | uses fjf1064x; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1063z.pas: -------------------------------------------------------------------------------- 1 | program fjf1063z; 2 | 3 | uses fjf1064z; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1065b.pas: -------------------------------------------------------------------------------- 1 | program fjf1065b; 2 | 3 | uses fjf1066b; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1065p.pas: -------------------------------------------------------------------------------- 1 | program fjf1065p; 2 | 3 | uses fjf1066p; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1065s.pas: -------------------------------------------------------------------------------- 1 | program fjf1065s; 2 | 3 | uses fjf1066s; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1065t.pas: -------------------------------------------------------------------------------- 1 | program fjf1065t; 2 | 3 | uses fjf1066t; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1065u.pas: -------------------------------------------------------------------------------- 1 | program fjf1065u; 2 | 3 | uses fjf1066u; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1065w.pas: -------------------------------------------------------------------------------- 1 | program fjf1065w; 2 | 3 | uses fjf1066w; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1065x.pas: -------------------------------------------------------------------------------- 1 | program fjf1065x; 2 | 3 | uses fjf1066x; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1065y.pas: -------------------------------------------------------------------------------- 1 | program fjf1065y; 2 | 3 | uses fjf1066y; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1065z.pas: -------------------------------------------------------------------------------- 1 | program fjf1065z; 2 | 3 | uses fjf1066z; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf121.pas: -------------------------------------------------------------------------------- 1 | program fjf121; 2 | const inf=1 div 0; { WRONG } 3 | begin 4 | writeln('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf161a.pas: -------------------------------------------------------------------------------- 1 | program fjf161; 2 | uses fjf161u; { WRONG } 3 | begin 4 | writeln('Failed.') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf177.pas: -------------------------------------------------------------------------------- 1 | program fjf177; 2 | 3 | uses fjf177u; 4 | 5 | { FLAG -Werror } 6 | 7 | begin 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf181c.pas: -------------------------------------------------------------------------------- 1 | program fjf181c; 2 | begin 3 | Writeln ('failed ', Low (String)) { WRONG } 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf181d.pas: -------------------------------------------------------------------------------- 1 | program fjf181d; 2 | begin 3 | Writeln ('failed ', High (String)) { WRONG } 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf211gu.pas: -------------------------------------------------------------------------------- 1 | unit fjf211gu; 2 | interface 3 | var 4 | a: (foo,bar,baz); 5 | implementation 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf295.pas: -------------------------------------------------------------------------------- 1 | program fjf295; 2 | begin 3 | writeln(Copy (CString2String ('foo OK'), 5, 2)) 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf40.pas: -------------------------------------------------------------------------------- 1 | program fjf40; 2 | {$W-} 3 | var s:string(2)='OKfailed'; 4 | begin 5 | writeln(s) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf40b.pas: -------------------------------------------------------------------------------- 1 | program fjf40b; 2 | var s:string(10)='OK'; 3 | begin 4 | writeln(Copy(s,1,4)) 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf40e.pas: -------------------------------------------------------------------------------- 1 | program fjf40e; 2 | var s:string(10)='xyzOK'; 3 | begin 4 | writeln (Copy(s,4)) 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf46.pas: -------------------------------------------------------------------------------- 1 | program fjf46; 2 | begin 3 | readln('.'); { WRONG } 4 | writeln ( 'failed' ); 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf488vj.pas: -------------------------------------------------------------------------------- 1 | program fjf488vj; 2 | 3 | begin 4 | WriteLn (Concat (Pred ('P'), Succ ('J'))) 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf539b.pas: -------------------------------------------------------------------------------- 1 | program fjf539b; 2 | 3 | uses fred in 'fjf539u' '.pas'; 4 | 5 | begin 6 | ok 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf551b.pas: -------------------------------------------------------------------------------- 1 | program fjf551b; 2 | 3 | begin 4 | WriteLn ('failed ', Frac (42)) { WARN } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf558h.pas: -------------------------------------------------------------------------------- 1 | program fjf558h; 2 | 3 | begin 4 | WriteLn ('failed'); 5 | goto 9; { WRONG } 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf562j.pas: -------------------------------------------------------------------------------- 1 | program fjf562j; 2 | uses fjf562ju; { WARN } 3 | begin 4 | WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf562k.pas: -------------------------------------------------------------------------------- 1 | program fjf562k; 2 | uses fjf562ku; { WARN } 3 | begin 4 | WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf641a.pas: -------------------------------------------------------------------------------- 1 | program fjf641a; 2 | 3 | begin 4 | WriteLn ('failed ', Re (42.7)) { WARN } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf641e.pas: -------------------------------------------------------------------------------- 1 | program fjf641e; 2 | 3 | begin 4 | WriteLn ('failed ', Im (42.7)) { WARN } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf665m.pas: -------------------------------------------------------------------------------- 1 | program fjf665m; 2 | 3 | begin 4 | Assert; { WRONG } 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf692.pas: -------------------------------------------------------------------------------- 1 | program fjf692; 2 | begin 3 | WriteLn('failed ', True < True < True) { WRONG } 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf725d.pas: -------------------------------------------------------------------------------- 1 | program fjf725d; 2 | 3 | begin 4 | WriteLn (Output : 10, 'failed') { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf730a.pas: -------------------------------------------------------------------------------- 1 | program fjf730a; 2 | 3 | begin 4 | WriteLn ('failed ', not 'a') { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf730c.pas: -------------------------------------------------------------------------------- 1 | program fjf730c; 2 | 3 | begin 4 | WriteLn ('failed ', not 2.0) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf735i.pas: -------------------------------------------------------------------------------- 1 | program fjf735i; 2 | 3 | import fjf735h; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf735j.pas: -------------------------------------------------------------------------------- 1 | program fjf735j; 2 | 3 | begin 4 | WriteLn ('failed') 5 | end. 6 | 7 | bla { WRONG } 8 | -------------------------------------------------------------------------------- /p/test/fjf745i.pas: -------------------------------------------------------------------------------- 1 | program fjf745i; 2 | 3 | begin 4 | WriteLn ('failed ', Succ ('')) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf811e.pas: -------------------------------------------------------------------------------- 1 | program fjf811e; 2 | 3 | uses fjf811m; 4 | 5 | begin 6 | q := 0 { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf846.pas: -------------------------------------------------------------------------------- 1 | program fjf846; 2 | begin 3 | case 42 of 4 | 6 * 7: WriteLn ('OK') 5 | end 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf849.pas: -------------------------------------------------------------------------------- 1 | program fjf849; 2 | 3 | var 4 | e: Integer = (1: 1); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf921w.pas: -------------------------------------------------------------------------------- 1 | module fjf921w; 2 | 3 | export fjf921w = (Output); { WRONG } 4 | 5 | end; 6 | 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf964b.pas: -------------------------------------------------------------------------------- 1 | program fjf964b; 2 | 3 | const 4 | a = [(1 .. 2)]; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf971a.pas: -------------------------------------------------------------------------------- 1 | program fjf971a; 2 | 3 | const 4 | a = Integer[42]; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf982b.pas: -------------------------------------------------------------------------------- 1 | program fjf982b; 2 | 3 | begin 4 | case 2 of 5 | end; 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf987g.pas: -------------------------------------------------------------------------------- 1 | program fjf987g; 2 | 3 | uses fjf987x; 4 | 5 | begin 6 | WriteLn (O, 'K') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/larry1.pas: -------------------------------------------------------------------------------- 1 | program Larry1; 2 | 3 | uses 4 | Unit1 in 'larry2'; 5 | 6 | begin 7 | OK; 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/link5a.pas: -------------------------------------------------------------------------------- 1 | program link5ab; { error the second time... } 2 | 3 | uses link5u; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/link5b.pas: -------------------------------------------------------------------------------- 1 | program link5ab; { error the second time... } 2 | 3 | uses link5u; 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/maur1.pas: -------------------------------------------------------------------------------- 1 | Program Maurice1; 2 | 3 | uses 4 | Maurice1u in 'maur1u.pas'; 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/sven14.pas: -------------------------------------------------------------------------------- 1 | Program Sven14; 2 | 3 | uses 4 | Sven14u; 5 | 6 | begin 7 | writeln ( OK ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/doc/images/peng-screen-small.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/peng-screen-small.png -------------------------------------------------------------------------------- /p/doc/images/rhide-screen-small.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hebisch/gpc/HEAD/p/doc/images/rhide-screen-small.png -------------------------------------------------------------------------------- /p/test/amod17d.pas: -------------------------------------------------------------------------------- 1 | program mod17c (Output); 2 | import mod17w3; 3 | begin 4 | writeln ('OK') 5 | end 6 | . 7 | -------------------------------------------------------------------------------- /p/test/az38.pas: -------------------------------------------------------------------------------- 1 | program az38(output); 2 | begin 3 | if 1 in 1 then; (* WRONG *) 4 | writeln('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/bo4-7.pas: -------------------------------------------------------------------------------- 1 | Program BO4_7; 2 | 3 | Const 4 | OK = #79 + #75; 5 | 6 | begin 7 | writeln ( OK ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/chief43c.pas: -------------------------------------------------------------------------------- 1 | program badprog; 2 | uses chief43w; { WRONG } 3 | begin 4 | Writeln ('failed'); 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/chief43d.pas: -------------------------------------------------------------------------------- 1 | program badprog2; 2 | uses chief43x; { WRONG } 3 | begin 4 | Writeln ('failed'); 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/chief43e.pas: -------------------------------------------------------------------------------- 1 | program badprog; 2 | uses chief43y; { WRONG } 3 | begin 4 | Writeln ('failed'); 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/chief43f.pas: -------------------------------------------------------------------------------- 1 | program badprog; 2 | uses chief43z; { WRONG } 3 | begin 4 | Writeln ('failed'); 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/chief54a.pas: -------------------------------------------------------------------------------- 1 | program chief54a; 2 | begin 3 | Writeln (); { WRONG } 4 | Writeln ('failed'); 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/dollars.pas: -------------------------------------------------------------------------------- 1 | Program Dollars; 2 | 3 | {$$} { WARN } 4 | 5 | begin 6 | writeln ( 'failed' ); 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/eike5.out: -------------------------------------------------------------------------------- 1 | 101 2 | 101 3 | 101 4 | 101 5 | 101 6 | 101 7 | 101 8 | 101 9 | 101 10 | 101 11 | 101 12 | -------------------------------------------------------------------------------- /p/test/fjf1018c.pas: -------------------------------------------------------------------------------- 1 | {$borland-pascal} 2 | 3 | program fjf1018c; 4 | 5 | uses fjf1018u; 6 | 7 | begin 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf1018j.pas: -------------------------------------------------------------------------------- 1 | program fjf1018j (Output); 2 | 3 | var 4 | Output: Text; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf140v.pas: -------------------------------------------------------------------------------- 1 | unit u; 2 | interface 3 | var foo : integer; external name 'bar'; 4 | implementation 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf161b.pas: -------------------------------------------------------------------------------- 1 | program fjf161b; 2 | import fjf161v; { WRONG } 3 | begin 4 | writeln('Failed.') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf206a.pas: -------------------------------------------------------------------------------- 1 | program fjf206a; 2 | var a: LongestInt = High (LongestCard) + 1; { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf211au.pas: -------------------------------------------------------------------------------- 1 | unit fjf211au; 2 | interface 3 | type tfoo = set of (foo,bar,baz); 4 | implementation 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211du.pas: -------------------------------------------------------------------------------- 1 | unit fjf211du; 2 | interface 3 | type tfoo = set of -13 .. 42; 4 | implementation 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211lu.pas: -------------------------------------------------------------------------------- 1 | unit fjf211lu; 2 | interface 3 | type 4 | a = (foo,bar,baz); 5 | implementation 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf333.pas: -------------------------------------------------------------------------------- 1 | program fjf333; 2 | 3 | begin 4 | writeln (copy ('failed', 1, 6, 42)) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf371.run: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | FOO=qwe 3 | BAR=asd 4 | export FOO 5 | export BAR 6 | unset BAZ QUX 7 | ./"$A_OUT" 8 | -------------------------------------------------------------------------------- /p/test/fjf432.run: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | if [ -r "$A_OUT" ]; then ./"$A_OUT" --gpc-rts -i foo bar; else echo failed; fi 3 | -------------------------------------------------------------------------------- /p/test/fjf463.pas: -------------------------------------------------------------------------------- 1 | program fjf463; 2 | begin 3 | if #0 < 100 then; { WRONG } 4 | WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf53a.pas: -------------------------------------------------------------------------------- 1 | { COMPILE-CMD: fjf53.cmp } 2 | 3 | program fjf53a; 4 | 5 | {$M Foo} 6 | 7 | begin 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf53b.pas: -------------------------------------------------------------------------------- 1 | { COMPILE-CMD: fjf53.cmp } 2 | 3 | program fjf53b; 4 | 5 | {$M "Foo"} 6 | 7 | begin 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf53c.pas: -------------------------------------------------------------------------------- 1 | { COMPILE-CMD: fjf53.cmp } 2 | 3 | program fjf53c; 4 | 5 | {$M 'Foo'} 6 | 7 | begin 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf547a.pas: -------------------------------------------------------------------------------- 1 | program fjf547a; 2 | 3 | begin 4 | WriteLn ('failed ', Ord (False + 0)) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf547b.pas: -------------------------------------------------------------------------------- 1 | program fjf547b; 2 | 3 | begin 4 | WriteLn ('failed ', Ord ('a' + 0)) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf547g.pas: -------------------------------------------------------------------------------- 1 | program fjf547g; 2 | 3 | begin 4 | WriteLn ('failed ', Ord (0 + False)) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf547h.pas: -------------------------------------------------------------------------------- 1 | program fjf547h; 2 | 3 | begin 4 | WriteLn ('failed ', Ord (0 + 'a')) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf560c.pas: -------------------------------------------------------------------------------- 1 | { That's also allowed } 2 | 3 | program fjf560c; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf605a.pas: -------------------------------------------------------------------------------- 1 | program fjf605a; 2 | 3 | uses fjf605u, fjf605v; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf629a.pas: -------------------------------------------------------------------------------- 1 | program fjf629a; 2 | 3 | begin 4 | WriteLn ('failed ', FormatString) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf665c.pas: -------------------------------------------------------------------------------- 1 | program fjf665c; 2 | 3 | begin 4 | Assert (1); { WRONG } 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf723c.pas: -------------------------------------------------------------------------------- 1 | program fjf723c; 2 | 3 | begin 4 | WriteLn ('failed ', Conjugate (42)) { WARN } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf723d.pas: -------------------------------------------------------------------------------- 1 | program fjf723d; 2 | 3 | begin 4 | WriteLn ('failed ', Conjugate (42.5)) { WARN } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf726a.pas: -------------------------------------------------------------------------------- 1 | program fjf726a; 2 | 3 | begin 4 | WriteLn ('failed ', AlignOf (String)) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf726c.pas: -------------------------------------------------------------------------------- 1 | program fjf726c; 2 | 3 | begin 4 | WriteLn ('failed ', AlignOf (Void)) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf734b.pas: -------------------------------------------------------------------------------- 1 | {$W implicit-io} 2 | 3 | program fjf734b; 4 | 5 | begin 6 | WriteLn (Output, 'OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf761.pas: -------------------------------------------------------------------------------- 1 | program fjf761; 2 | 3 | type 4 | a = record x: Void end; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf769b.pas: -------------------------------------------------------------------------------- 1 | program fjf769b; 2 | 3 | type 4 | a = file of object end; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf769g.pas: -------------------------------------------------------------------------------- 1 | program fjf769g; 2 | 3 | type 4 | a = bindable Integer; { WARN } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf781i.pas: -------------------------------------------------------------------------------- 1 | program fjf781i; 2 | 3 | procedure Foo; external name 42; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf81.pas: -------------------------------------------------------------------------------- 1 | program fjf81; 2 | const 3 | a=Byte(256); 4 | begin { WRONG } 5 | writeln('Failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf821h.pas: -------------------------------------------------------------------------------- 1 | program fjf821h; 2 | 3 | type 4 | r = file of AnyFile; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf925.pas: -------------------------------------------------------------------------------- 1 | program fjf925; 2 | 3 | type 4 | foo = type of Integer; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf937a.pas: -------------------------------------------------------------------------------- 1 | program fjf937a; 2 | 3 | import fjf937m (a => a); 4 | 5 | begin 6 | WriteLn (a) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf982a.pas: -------------------------------------------------------------------------------- 1 | program fjf982a; 2 | 3 | begin 4 | case 2 of 5 | else WriteLn ('OK') 6 | end 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf998c.pas: -------------------------------------------------------------------------------- 1 | program fjf998c (Output); 2 | 3 | const 4 | a = 0 pow 0; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/hugereal.out: -------------------------------------------------------------------------------- 1 | errno = 0 2 | gimme a real that was a really satisfying 1.234567899876543e+08 3 | errno = 0 4 | -------------------------------------------------------------------------------- /p/test/iniabs.pas: -------------------------------------------------------------------------------- 1 | program iniabs; 2 | var 3 | HeapOrg: Pointer absolute HeapLow; { WRONG } 4 | begin 5 | end 6 | . 7 | -------------------------------------------------------------------------------- /p/test/kevin5.pas: -------------------------------------------------------------------------------- 1 | Program bar; 2 | 3 | Import 4 | kevin5f; 5 | 6 | begin 7 | test1 ( 42, 3.14 ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/maur6uu.pas: -------------------------------------------------------------------------------- 1 | unit maur6uu; 2 | 3 | interface 4 | var K: string[2] = 'K'; 5 | 6 | implementation 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/mod16a.pas: -------------------------------------------------------------------------------- 1 | program mod16a(output); 2 | import mod16m; mod16m1; 3 | begin 4 | writeln('OK') 5 | end 6 | . 7 | -------------------------------------------------------------------------------- /p/test/mod17v5.pas: -------------------------------------------------------------------------------- 1 | module mod17v5; 2 | export mod17v5 = (a, b); 3 | type t = (a, b); 4 | end; 5 | end 6 | . 7 | -------------------------------------------------------------------------------- /p/test/nobool.pas: -------------------------------------------------------------------------------- 1 | Program NoBool; 2 | 3 | begin 4 | if 1 then { WRONG } 5 | writeln ( 'failed' ); 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/read3.pas: -------------------------------------------------------------------------------- 1 | { FLAG -fextended-pascal } 2 | program read(input); 3 | begin 4 | read { WRONG } 5 | end 6 | . 7 | -------------------------------------------------------------------------------- /p/test/sven14a.pas: -------------------------------------------------------------------------------- 1 | Program Sven14a; 2 | 3 | uses 4 | Sven14au; 5 | 6 | begin 7 | writeln ( OK ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/adam2u.pas: -------------------------------------------------------------------------------- 1 | unit adam2u; 2 | interface 3 | uses adam2v; 4 | var ImpSgnList:MList; 5 | implementation 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/caglio1.pas: -------------------------------------------------------------------------------- 1 | Program Cagliostro1; 2 | 3 | uses 4 | Cagliostro1u in 'caglio1u.pas'; 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/emil10.pas: -------------------------------------------------------------------------------- 1 | { FLAG -pedantic } 2 | 3 | program Emil10 (Output); 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/expotst.out: -------------------------------------------------------------------------------- 1 | -23 2 | -17 3 | -1 4 | 0 5 | 1 6 | 17 7 | 23 8 | -------------------------------------------------------------------------------- /p/test/fjf100.pas: -------------------------------------------------------------------------------- 1 | program fjf100; 2 | var s:string(10)='Failed'; 3 | begin 4 | (s):='OK'; 5 | writeln(s) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1034.pas: -------------------------------------------------------------------------------- 1 | program fjf1034 (Output); 2 | 3 | type 4 | a = String ('x'); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1040b.pas: -------------------------------------------------------------------------------- 1 | program fjf1040b (Output); 2 | 3 | import fjf1040u; fjf1040w; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1040d.pas: -------------------------------------------------------------------------------- 1 | program fjf1040d (Output); 2 | 3 | import fjf1040m; fjf1040n; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1040e.pas: -------------------------------------------------------------------------------- 1 | program fjf1040e (Output); 2 | 3 | import fjf1040m; fjf1040p; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1040f.pas: -------------------------------------------------------------------------------- 1 | program fjf1040f (Output); 2 | 3 | import fjf1040n; fjf1040p; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1040g.pas: -------------------------------------------------------------------------------- 1 | program fjf1040g (Output); 2 | 3 | import fjf1040o; fjf1040q; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1040h.pas: -------------------------------------------------------------------------------- 1 | program fjf1040h (Output); 2 | 3 | import fjf1040r; fjf1040n; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1040i.pas: -------------------------------------------------------------------------------- 1 | program fjf1040i (Output); 2 | 3 | import fjf1040x; fjf1040n; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1040j.pas: -------------------------------------------------------------------------------- 1 | program fjf1040j (Output); 2 | 3 | import fjf1040y; fjf1040n; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1055b.pas: -------------------------------------------------------------------------------- 1 | {$extended-pascal} 2 | 3 | program fjf1055b (Input); 4 | 5 | begin 6 | Read { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf140u.pas: -------------------------------------------------------------------------------- 1 | unit u; 2 | interface 3 | var foo : integer; attribute (name = 'bar'); 4 | implementation 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf154.pas: -------------------------------------------------------------------------------- 1 | program fjf154; 2 | begin 3 | if (1=1) xor (1=0) then writeln('OK') else writeln('Failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf183.pas: -------------------------------------------------------------------------------- 1 | program fjf183; 2 | {$if 0} 3 | {$x+} 4 | {'} 5 | {$endif} 6 | begin 7 | writeln('OK') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf188.pas: -------------------------------------------------------------------------------- 1 | program fjf188; 2 | var s:CString='HOKUSPOKUS'; 3 | begin 4 | {$x+} 5 | writeln(s[6..7]) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf206m.pas: -------------------------------------------------------------------------------- 1 | program fjf206m; 2 | var a: LongestInt = (-2) - High (LongestCard); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf206n.pas: -------------------------------------------------------------------------------- 1 | program fjf206n; 2 | var a: LongestInt = (-2) - High (LongestInt); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf211iu.pas: -------------------------------------------------------------------------------- 1 | unit fjf211iu; 2 | interface 3 | var 4 | a: file of (foo,bar,baz); 5 | implementation 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf211ku.pas: -------------------------------------------------------------------------------- 1 | unit fjf211ku; 2 | interface 3 | const 4 | a: (foo,bar,baz) = foo; 5 | implementation 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf255p.pas: -------------------------------------------------------------------------------- 1 | program fjf255p; 2 | 3 | #define foo { bar *) baz } 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf331a.pas: -------------------------------------------------------------------------------- 1 | program fjf331a; 2 | 3 | var a : integer; 4 | 5 | begin 6 | byte (a) := 0 { WARN } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf40a.pas: -------------------------------------------------------------------------------- 1 | program fjf40a; 2 | {$W-} 3 | var s:string(2); 4 | begin 5 | s:='OKfailed'; 6 | writeln(s) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf421k.pas: -------------------------------------------------------------------------------- 1 | { FLAG --cidefine=foo='OK' } 2 | 3 | program fjf421k; 4 | 5 | begin 6 | WriteLn (FOO) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf430d.pas: -------------------------------------------------------------------------------- 1 | program fjf430d; 2 | 3 | begin 4 | {$local foobar} { WRONG } 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf430l.pas: -------------------------------------------------------------------------------- 1 | program fjf430l; 2 | 3 | begin 4 | {$local i fjf430l.inc} { WRONG } 5 | {$endlocal} 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf430r.pas: -------------------------------------------------------------------------------- 1 | program fjf430r; 2 | 3 | begin 4 | {$X+,local X+} { WARN } 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf457.pas: -------------------------------------------------------------------------------- 1 | program fjf457; 2 | 3 | {$definecs GMP} { WARN } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf51a.pas: -------------------------------------------------------------------------------- 1 | program fjf51a; 2 | begin 3 | if '\' = "\\" then WriteLn ('OK') else WriteLn ('failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf51b.pas: -------------------------------------------------------------------------------- 1 | program fjf51b; 2 | begin 3 | if '''' = "'" then WriteLn ('OK') else WriteLn ('failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf51c.pas: -------------------------------------------------------------------------------- 1 | program fjf51c; 2 | begin 3 | if """" = '' then WriteLn ('OK') else WriteLn ('failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf538b.pas: -------------------------------------------------------------------------------- 1 | program fjf538b; 2 | 3 | uses fjf538u; 4 | 5 | begin 6 | WriteLn (failed) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf547c.pas: -------------------------------------------------------------------------------- 1 | program fjf547c; 2 | 3 | begin 4 | WriteLn ('failed ', Ord (False + 'a')) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf547i.pas: -------------------------------------------------------------------------------- 1 | program fjf547i; 2 | 3 | begin 4 | WriteLn ('failed ', Ord ('a' + False)) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf547n.pas: -------------------------------------------------------------------------------- 1 | program fjf547n; 2 | 3 | begin 4 | WriteLn ('failed ', Ord (False + True)) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf558c.pas: -------------------------------------------------------------------------------- 1 | program fjf558c; 2 | 3 | label 9; 4 | 5 | begin 6 | WriteLn ('failed'); 7 | 9:{ WARN } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf558e.pas: -------------------------------------------------------------------------------- 1 | program fjf558e; 2 | 3 | label 9; 4 | 5 | begin 6 | WriteLn ('failed') 7 | { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf561a.pas: -------------------------------------------------------------------------------- 1 | program fjf561a; 2 | 3 | uses fjf561u; 4 | 5 | begin 6 | WriteLn (fjf561u) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf562d.pas: -------------------------------------------------------------------------------- 1 | program fjf562d; 2 | begin 3 | if ParamCount = 0 then; { WARN } 4 | WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf59.pas: -------------------------------------------------------------------------------- 1 | program fjf59; 2 | var a:string(2); 3 | begin 4 | writestr(a,'OKfailed'); 5 | writeln(a) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf629b.pas: -------------------------------------------------------------------------------- 1 | program fjf629b; 2 | 3 | begin 4 | WriteLn ('failed ', FormatString (42)) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf656b.pas: -------------------------------------------------------------------------------- 1 | program fjf656b; 2 | 3 | uses fjf656n; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf659b.pas: -------------------------------------------------------------------------------- 1 | program fjf659b; 2 | 3 | begin 4 | Initialize (1); { WRONG } 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf659i.pas: -------------------------------------------------------------------------------- 1 | program fjf659i; 2 | 3 | begin 4 | Finalize (1); { WRONG } 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf665p.pas: -------------------------------------------------------------------------------- 1 | program fjf665o; 2 | 3 | begin 4 | Assert (True, 'my assertion'); 5 | WriteLn ('OK') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf665q.pas: -------------------------------------------------------------------------------- 1 | {$C-} 2 | 3 | program fjf665q; 4 | 5 | begin 6 | Assert (False); 7 | WriteLn ('OK') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf720b.pas: -------------------------------------------------------------------------------- 1 | program fjf720b; 2 | 3 | uses fjf720u; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf735c.pas: -------------------------------------------------------------------------------- 1 | program fjf735c; 2 | 3 | uses fjf735b; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf736a.pas: -------------------------------------------------------------------------------- 1 | program fjf736a; 2 | 3 | uses fjf736m; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf736b.pas: -------------------------------------------------------------------------------- 1 | program fjf736b; 2 | 3 | uses fjf736n; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf736c.pas: -------------------------------------------------------------------------------- 1 | program fjf736c; 2 | 3 | uses fjf736o; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf736d.pas: -------------------------------------------------------------------------------- 1 | program fjf736d; 2 | 3 | uses fjf736p; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf736e.pas: -------------------------------------------------------------------------------- 1 | program fjf736e; 2 | 3 | uses fjf736q; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf736i.pas: -------------------------------------------------------------------------------- 1 | program fjf736i; 2 | 3 | uses fjf736t; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf736j.pas: -------------------------------------------------------------------------------- 1 | program fjf736j; 2 | 3 | uses fjf736u; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf758b.pas: -------------------------------------------------------------------------------- 1 | program fjf758b; 2 | 3 | uses fjf758u; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf76.pas: -------------------------------------------------------------------------------- 1 | program fjf76; 2 | const 3 | a=LongCard(-1); 4 | begin { WRONG } 5 | writeln('Failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf769e.pas: -------------------------------------------------------------------------------- 1 | program fjf769e; 2 | 3 | type 4 | a = restricted record end; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf790.pas: -------------------------------------------------------------------------------- 1 | program fjf790; 2 | 3 | begin 4 | var a: Integer; 5 | for a := 1 to 1 do WriteLn ('OK') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf795.pas: -------------------------------------------------------------------------------- 1 | program fjf795; 2 | 3 | procedure p; external attribute 'foo'; { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf809a.pas: -------------------------------------------------------------------------------- 1 | program fjf809a; 2 | 3 | uses foo in 'fjf' + '809m.pas'; 4 | 5 | begin 6 | WriteLn (OK) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf820.pas: -------------------------------------------------------------------------------- 1 | program fjf820; 2 | 3 | var 4 | f: file of Char; 5 | 6 | begin 7 | Page (f) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf821i.pas: -------------------------------------------------------------------------------- 1 | program fjf821i; 2 | 3 | var 4 | v: ^AnyFile; 5 | 6 | begin 7 | New (v) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf845.pas: -------------------------------------------------------------------------------- 1 | program fjf845; 2 | 3 | var 4 | d: String (3) = (3, 3, 'abc'); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf904c.pas: -------------------------------------------------------------------------------- 1 | program fjf904c; 2 | 3 | const 4 | a = CompilerAssert (2 = 8); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf904e.pas: -------------------------------------------------------------------------------- 1 | program fjf904e; 2 | 3 | const 4 | a = CompilerAssert (42); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf917a.pas: -------------------------------------------------------------------------------- 1 | {$extended-pascal} 2 | 3 | program fjf917a; 4 | 5 | begin 6 | Dispose (nil) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf927a.pas: -------------------------------------------------------------------------------- 1 | program fjf927a; 2 | 3 | const 4 | c: Integer = ParamStr (0); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf998d.pas: -------------------------------------------------------------------------------- 1 | program fjf998d (Output); 2 | 3 | const 4 | a = 0 pow (-1); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/head.pas: -------------------------------------------------------------------------------- 1 | Program Head; { No "Output" specification needed. } 2 | 3 | begin 4 | writeln ( 'OK' ); 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/ian2.pas: -------------------------------------------------------------------------------- 1 | program MxFiler; 2 | 3 | #include "ian2.inc" 4 | 5 | 6 | BEGIN 7 | writeln('OK'); 8 | END. 9 | -------------------------------------------------------------------------------- /p/test/ian5.inc: -------------------------------------------------------------------------------- 1 | var s: string(40); external name 'S'; 2 | 3 | procedure print_globals; external name 'Print_globals'; 4 | -------------------------------------------------------------------------------- /p/test/inga1b.out: -------------------------------------------------------------------------------- 1 | first element: 0 2 | first element: 1 3 | first element: 2 4 | first element: 3 5 | first element: 4 6 | -------------------------------------------------------------------------------- /p/test/ken1.pas: -------------------------------------------------------------------------------- 1 | Program Ken1; 2 | 3 | uses 4 | Ken1u; 5 | 6 | begin 7 | PrintF ( "%c%c\n", 'O', 'K' ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/mod17v1.pas: -------------------------------------------------------------------------------- 1 | module mod17v1; 2 | export mod17v1 = (a => a, b); 3 | type t = (a, b); 4 | end; 5 | end 6 | . 7 | -------------------------------------------------------------------------------- /p/test/prep1a.pas: -------------------------------------------------------------------------------- 1 | { COMPILE-CMD: prep1a.cmp } 2 | program prep1a; 3 | begin 4 | {$include "prep1a.inc"} 5 | end 6 | . 7 | -------------------------------------------------------------------------------- /p/test/rs.pas: -------------------------------------------------------------------------------- 1 | program rs; 2 | 3 | var a: integer; 4 | begin 5 | readstring(a); { WRONG } 6 | end. 7 | 8 | -------------------------------------------------------------------------------- /p/test/sam12_e.pas: -------------------------------------------------------------------------------- 1 | unit sam12_e; 2 | interface 3 | type 4 | t_e = ( e_a, e_b ); 5 | implementation 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/sam5m.pas: -------------------------------------------------------------------------------- 1 | Module Sam5m; 2 | 3 | Var 4 | s: String ( 2 ) value 'OK'; attribute (name = 'foo'); 5 | 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/waldek13.pas: -------------------------------------------------------------------------------- 1 | program t; 2 | procedure p(a : array of b); { WRONG } 3 | begin 4 | end; 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/write3.pas: -------------------------------------------------------------------------------- 1 | { FLAG -fextended-pascal } 2 | program write(output); 3 | begin 4 | write { WRONG } 5 | end 6 | . 7 | -------------------------------------------------------------------------------- /p/doc/es/README: -------------------------------------------------------------------------------- 1 | This directory contains the Spanish version of GNU Pascal's Texinfo 2 | documentation (not finished yet). 3 | -------------------------------------------------------------------------------- /p/doc/hr/README: -------------------------------------------------------------------------------- 1 | This directory contains the Croatian version of GNU Pascal's Texinfo 2 | documentation (not finished yet). 3 | -------------------------------------------------------------------------------- /p/test/az31.pas: -------------------------------------------------------------------------------- 1 | program az31(output); 2 | type t=record x:^r(* WRONG *)eal end; 3 | begin 4 | writeln('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/az42.pas: -------------------------------------------------------------------------------- 1 | program az42(output); 2 | const s=1; 3 | type t=^s; (* WRONG *) 4 | begin 5 | writeln('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/dblimp1.pas: -------------------------------------------------------------------------------- 1 | Program DblImp1; 2 | 3 | uses 4 | DblImp1u, DblImp1u; { WRONG } 5 | 6 | begin 7 | failed 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/eike6.pas: -------------------------------------------------------------------------------- 1 | program Foo; 2 | 3 | uses Eike6u; 4 | 5 | begin 6 | MySQLOptConnectTimeout := 100; { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf101a.pas: -------------------------------------------------------------------------------- 1 | Program fjf101a; 2 | 3 | { FLAG --uses=fjf101au,fjf101av } 4 | 5 | begin 6 | O; 7 | K; 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf1037c.pas: -------------------------------------------------------------------------------- 1 | program fjf1037c; 2 | 3 | {$disable-predefined-identifier=begin} { WRONG } 4 | 5 | begin 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1040c.pas: -------------------------------------------------------------------------------- 1 | program fjf1040c (Output); 2 | 3 | import fjf1040n; fjf1040o; 4 | 5 | begin 6 | WriteLn (c) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1055a.pas: -------------------------------------------------------------------------------- 1 | {$extended-pascal} 2 | 3 | program fjf1055a (Output); 4 | 5 | begin 6 | Write { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf132.pas: -------------------------------------------------------------------------------- 1 | program fjf132; 2 | {$W-} 3 | begin 4 | read(input); 5 | write(output); 6 | writeln('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf140a.pas: -------------------------------------------------------------------------------- 1 | {$delphi} 2 | program fjf140a; 3 | uses u in 'fjf140u.pas'; 4 | begin 5 | writeln ( 'OK' ); 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf140b.pas: -------------------------------------------------------------------------------- 1 | {$delphi} 2 | program fjf140b; 3 | uses u in 'fjf140v.pas'; 4 | begin 5 | writeln ( 'OK' ); 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf161u.pas: -------------------------------------------------------------------------------- 1 | module fjf161u; 2 | export fjf161u=(c); 3 | uses fjf161u; { WRONG } 4 | const c = 0; 5 | end; 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf176.pas: -------------------------------------------------------------------------------- 1 | program fjf176; 2 | { FLAG -Werror } 3 | begin 4 | var a:cstring='OK'; 5 | {$x+}writeln(a) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf206b.pas: -------------------------------------------------------------------------------- 1 | program fjf206b; 2 | var a: LongestCard = High (LongestCard) + Integer (1); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf227u.pas: -------------------------------------------------------------------------------- 1 | unit fjf227u; 2 | 3 | interface 4 | 5 | type TString = String (2048); 6 | 7 | implementation 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf312a.pas: -------------------------------------------------------------------------------- 1 | program fjf312a; { error the second time... } 2 | 3 | uses fjf312u; 4 | 5 | begin 6 | OK1 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf312b.pas: -------------------------------------------------------------------------------- 1 | program fjf312b; { error the second time... } 2 | 3 | uses fjf312u; 4 | 5 | begin 6 | OK1 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf32u.pas: -------------------------------------------------------------------------------- 1 | unit fjf32foobar; 2 | interface 3 | var m:set of byte value [ 1..3, 5, 8 ]; 4 | implementation 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf364.pas: -------------------------------------------------------------------------------- 1 | program fjf364; 2 | 3 | var a : SizeType (42); { WRONG } 4 | 5 | begin 6 | writeln ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf405a.pas: -------------------------------------------------------------------------------- 1 | unit fjf405a; 2 | 3 | interface 4 | 5 | uses fjf405b; 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf406a.pas: -------------------------------------------------------------------------------- 1 | unit fjf406a; 2 | 3 | interface 4 | 5 | uses fjf406b; 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf407a.pas: -------------------------------------------------------------------------------- 1 | unit fjf407a; 2 | 3 | interface 4 | 5 | uses fjf407b; 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf42.pas: -------------------------------------------------------------------------------- 1 | Program fjf42; 2 | 3 | uses 4 | fjf42u; { WRONG } 5 | 6 | begin 7 | writeln ( 'failed' ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf430m.pas: -------------------------------------------------------------------------------- 1 | program fjf430m; 2 | 3 | begin 4 | {$local include "fjf430l.inc"} { WRONG } 5 | {$endlocal} 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf433a.pas: -------------------------------------------------------------------------------- 1 | program fjf433a; 2 | 3 | { WARN } 4 | #define foo {$X+} 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf433c.pas: -------------------------------------------------------------------------------- 1 | program fjf433c; 2 | 3 | { WARN } 4 | #{$X+}define foo 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf480.run: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | echo O > test.dat 3 | if [ -r "$A_OUT" ]; then ./"$A_OUT" < test.dat; else echo failed; fi 4 | -------------------------------------------------------------------------------- /p/test/fjf488i3.pas: -------------------------------------------------------------------------------- 1 | program fjf488i3; 2 | 3 | const 4 | a = 'OK '; 5 | 6 | begin 7 | WriteLn (Trim (a)) 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf488va.pas: -------------------------------------------------------------------------------- 1 | program fjf488va; 2 | 3 | begin 4 | writeln ('OK'); 5 | halt; 6 | mkdir (succ ('a')) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf488vb.pas: -------------------------------------------------------------------------------- 1 | program fjf488vb; 2 | 3 | begin 4 | writeln ('OK'); 5 | halt; 6 | rmdir (succ ('a')) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf488vc.pas: -------------------------------------------------------------------------------- 1 | program fjf488vc; 2 | 3 | begin 4 | writeln ('OK'); 5 | halt; 6 | chdir (succ ('a')) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf493b.pas: -------------------------------------------------------------------------------- 1 | program fjf493b; 2 | 3 | var f: Text; 4 | 5 | begin 6 | Binding (f).Bound := True { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf536a.pas: -------------------------------------------------------------------------------- 1 | program fjf536a; 2 | var s: String [10]; 3 | begin 4 | WriteStr (s, 'OK'); 5 | WriteLn (s) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf546b.pas: -------------------------------------------------------------------------------- 1 | program fjf546b; 2 | {$no-double-quoted-strings} 3 | begin 4 | WriteLn ("failed") { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf562b.pas: -------------------------------------------------------------------------------- 1 | program fjf562b; 2 | begin 3 | if ParamCount = 0 then else; { WARN } 4 | WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf562ju.pas: -------------------------------------------------------------------------------- 1 | unit fjf562ju; 2 | 3 | interface 4 | 5 | implementation 6 | 7 | to begin do; 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf562ku.pas: -------------------------------------------------------------------------------- 1 | unit fjf562ku; 2 | 3 | interface 4 | 5 | implementation 6 | 7 | to end do; 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf625b.pas: -------------------------------------------------------------------------------- 1 | unit fjf625b; 2 | 3 | interface 4 | 5 | uses fjf625a; 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf656u.pas: -------------------------------------------------------------------------------- 1 | unit fjf656u; attribute (name = 'fjf_656u'); 2 | 3 | interface 4 | 5 | implementation 6 | 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf665n.pas: -------------------------------------------------------------------------------- 1 | program fjf665n; 2 | 3 | begin 4 | Assert (True, True); { WRONG } 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf665o.pas: -------------------------------------------------------------------------------- 1 | program fjf665o; 2 | 3 | begin 4 | Assert (True, '', 1); { WRONG } 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf665s.pas: -------------------------------------------------------------------------------- 1 | {$delphi} 2 | 3 | program fjf665s; 4 | 5 | begin 6 | Assert (True); 7 | WriteLn ('OK') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf710.pas: -------------------------------------------------------------------------------- 1 | program fjf710; 2 | {$if TrueandTrue} { WRONG } 3 | begin 4 | WriteLn ('failed') 5 | end. 6 | {$endif} 7 | -------------------------------------------------------------------------------- /p/test/fjf725c.pas: -------------------------------------------------------------------------------- 1 | program fjf725c; 2 | 3 | begin 4 | Write (Output : 10, 'failed'); { WRONG } 5 | WriteLn 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf725e.pas: -------------------------------------------------------------------------------- 1 | program fjf725e; 2 | 3 | begin 4 | WriteLn ('failed ', FormatString ('foo' : 3)) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf732.pas: -------------------------------------------------------------------------------- 1 | program fjf732; 2 | 3 | var 4 | High: String (2) = 'OK'; 5 | 6 | begin 7 | WriteLn (High) 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf734a.pas: -------------------------------------------------------------------------------- 1 | {$W implicit-io} 2 | 3 | program fjf734a; 4 | 5 | begin 6 | WriteLn ('failed') { WARN } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf735o.pas: -------------------------------------------------------------------------------- 1 | module fjf735o interface; 2 | 3 | export fjf735o = (foo); 4 | 5 | var 6 | foo: Integer; 7 | 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf740.pas: -------------------------------------------------------------------------------- 1 | program fjf740; 2 | 3 | begin 4 | WriteLn ('failed'); 5 | Halt; 6 | goto (42) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf751x.pas: -------------------------------------------------------------------------------- 1 | program fjf751x; 2 | 3 | const 4 | fjf751x = 'OK'; 5 | 6 | begin 7 | WriteLn (fjf751x) 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf758j.pas: -------------------------------------------------------------------------------- 1 | program fjf758j; 2 | 3 | import fjf758m; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf758k.pas: -------------------------------------------------------------------------------- 1 | program fjf758k; 2 | 3 | import fjf758n; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf758l.pas: -------------------------------------------------------------------------------- 1 | program fjf758l; 2 | 3 | import fjf758o; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf769c.pas: -------------------------------------------------------------------------------- 1 | program fjf769c; 2 | 3 | type 4 | a = record f: object end end; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf769d.pas: -------------------------------------------------------------------------------- 1 | program fjf769d; 2 | 3 | type 4 | a = object f: object end end; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf793d.pas: -------------------------------------------------------------------------------- 1 | program fjf793d; 2 | 3 | begin 4 | var External: String (2) = 'OK'; 5 | WriteLn (External) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf811b.pas: -------------------------------------------------------------------------------- 1 | program fjf811b; 2 | 3 | uses fjf811m; 4 | 5 | begin 6 | WriteLn ('failed ', a) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf811c.pas: -------------------------------------------------------------------------------- 1 | program fjf811c; 2 | 3 | uses fjf811m; 4 | 5 | begin 6 | WriteLn ('failed ', c) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf811d.pas: -------------------------------------------------------------------------------- 1 | program fjf811d; 2 | 3 | uses fjf811m; 4 | 5 | begin 6 | WriteLn ('failed ', p) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf811f.pas: -------------------------------------------------------------------------------- 1 | program fjf811d; 2 | 3 | uses fjf811m; 4 | 5 | begin 6 | WriteLn ('failed ', k) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf815u.pas: -------------------------------------------------------------------------------- 1 | unit fjf815u; 2 | 3 | interface 4 | 5 | uses fjf815v; 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf821r.pas: -------------------------------------------------------------------------------- 1 | program fjf821r; 2 | 3 | type 4 | r = array [1 .. 2] of AnyFile; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf828a.pas: -------------------------------------------------------------------------------- 1 | program fjf828a; 2 | 3 | var 4 | a, b, c: Char; 5 | 6 | begin 7 | c := a *< b { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf838.pas: -------------------------------------------------------------------------------- 1 | program fjf838; 2 | begin 3 | while False and (i = 42) do { WRONG } 4 | var i: Integer; 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf840f.pas: -------------------------------------------------------------------------------- 1 | program fjf840f; 2 | 3 | const 4 | s = 'ABC'; 5 | 6 | begin 7 | s[1] := 'X' { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf894.pas: -------------------------------------------------------------------------------- 1 | program fjf894; 2 | 3 | var 4 | a: Integer; attribute (name = '0a'); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf904d.pas: -------------------------------------------------------------------------------- 1 | program fjf904d; 2 | 3 | const 4 | a = CompilerAssert (2 = 8, 42); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf915k.pas: -------------------------------------------------------------------------------- 1 | program fjf915k; 2 | 3 | var 4 | a: ^Integer; 5 | 6 | begin 7 | New (a, Page) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf915n.pas: -------------------------------------------------------------------------------- 1 | program fjf915n; 2 | 3 | var 4 | a: ^Integer; 5 | 6 | begin 7 | New (a, Exit) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf959.pas: -------------------------------------------------------------------------------- 1 | program fjf959; 2 | 3 | var 4 | s: String (10); 5 | 6 | begin 7 | WriteStr (s) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf987f.pas: -------------------------------------------------------------------------------- 1 | program fjf987f; 2 | 3 | uses fjf987x; 4 | 5 | begin 6 | WriteLn ('failed ', X) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf987v.pas: -------------------------------------------------------------------------------- 1 | unit fjf987v; 2 | 3 | interface 4 | 5 | const O = 'O'; 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf987w.pas: -------------------------------------------------------------------------------- 1 | unit fjf987w; 2 | 3 | interface 4 | 5 | const X = 'X'; 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf998r.pas: -------------------------------------------------------------------------------- 1 | program fjf998r (Output); 2 | 3 | const 4 | a = 2 pow $100000000; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/jesper5.pas: -------------------------------------------------------------------------------- 1 | Program Jesper5; 2 | 3 | uses 4 | Jesper5u, Jesper5v; 5 | 6 | begin 7 | writeln ( O, K ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/link7a.pas: -------------------------------------------------------------------------------- 1 | Program Link7a; { error the second time... } 2 | 3 | uses 4 | Link7u; 5 | 6 | begin 7 | OK 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/link7b.pas: -------------------------------------------------------------------------------- 1 | Program Link7b; { error the second time... } 2 | 3 | uses 4 | Link7u; 5 | 6 | begin 7 | OK 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/mod17v2.pas: -------------------------------------------------------------------------------- 1 | module mod17v2; 2 | export mod17v2 = (a .. b); { WRONG } 3 | import mod17v1; 4 | end; 5 | end 6 | . 7 | -------------------------------------------------------------------------------- /p/test/mod17v3.pas: -------------------------------------------------------------------------------- 1 | module mod17v3; 2 | export mod17v3 = (a => c, b => d); 3 | type t = (a, b); 4 | end; 5 | end 6 | . 7 | -------------------------------------------------------------------------------- /p/test/sietse3.pas: -------------------------------------------------------------------------------- 1 | program Sietse3; 2 | 3 | import msge in 'sietse3m.pas'; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/sven18v.pas: -------------------------------------------------------------------------------- 1 | unit Sven18v; 2 | 3 | interface 4 | 5 | uses Sven18v; 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/unitinfw.pas: -------------------------------------------------------------------------------- 1 | Program MyProgram; 2 | 3 | uses 4 | MyUnit2; 5 | 6 | begin 7 | writeln ( OK ); { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/unum.pas: -------------------------------------------------------------------------------- 1 | Program Unum; 2 | 3 | uses 4 | Unum1, Unum2; 5 | 6 | begin 7 | Foo1; 8 | Foo2; 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/bill4u.pas: -------------------------------------------------------------------------------- 1 | Unit Bill4u; 2 | 3 | Interface 4 | 5 | Const 6 | O = 'O'; 7 | 8 | Implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/bo4-10.pas: -------------------------------------------------------------------------------- 1 | Program BO4_10; 2 | 3 | uses 4 | BO4_10u in 'bo4-10u.pas'; 5 | 6 | begin 7 | writeln ( OK^ ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/bo5-22.pas: -------------------------------------------------------------------------------- 1 | Program BO5_22; 2 | 3 | uses 4 | BO5_22u in 'bo5-22u.pas'; 5 | 6 | begin 7 | writeln ( OK ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/const1.pas: -------------------------------------------------------------------------------- 1 | {$classic-pascal} 2 | program const1(Output); 3 | const cs1 = 'OK'; 4 | begin 5 | writeln(cs1) 6 | end 7 | . 8 | -------------------------------------------------------------------------------- /p/test/emil27c.pas: -------------------------------------------------------------------------------- 1 | program Emil27c; 2 | begin 3 | if Cmplx (0, 0) ** 2 = 0 then WriteLn ('OK') else WriteLn ('failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/emil27d.pas: -------------------------------------------------------------------------------- 1 | program Emil27d; 2 | begin 3 | if Cmplx (1, 0) ** 0 = 1 then WriteLn ('OK') else WriteLn ('failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/esven1u.pas: -------------------------------------------------------------------------------- 1 | unit esven1u; 2 | 3 | interface 4 | 5 | var t:timestamp; 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf1006.pas: -------------------------------------------------------------------------------- 1 | program fjf1006; 2 | 3 | var 4 | S: String (26); 5 | 6 | begin 7 | SetLength (S, 42) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf1017b.pas: -------------------------------------------------------------------------------- 1 | {$W nested-comments} 2 | 3 | program fjf1017b; 4 | 5 | { WARN } 6 | { { } 7 | 8 | begin 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf1017e.pas: -------------------------------------------------------------------------------- 1 | {$nested-comments} 2 | 3 | program fjf1017e; 4 | 5 | { WRONG } 6 | { { } 7 | 8 | begin 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf1040a.pas: -------------------------------------------------------------------------------- 1 | program fjf1040a (Output); 2 | 3 | import fjf1040u; fjf1040v; 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1064g.pas: -------------------------------------------------------------------------------- 1 | unit fjf1064g; 2 | 3 | interface 4 | 5 | import 6 | GPC; 7 | 8 | Implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/fjf1066t.pas: -------------------------------------------------------------------------------- 1 | unit fjf1066t; 2 | 3 | interface 4 | 5 | import fjf1066p; 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf150.pas: -------------------------------------------------------------------------------- 1 | program fjf150; 2 | const a:array[Boolean] of char='OK'; 3 | begin 4 | writeln(a[False],a[True]) 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf151a.pas: -------------------------------------------------------------------------------- 1 | program fjf151a; 2 | type a(b,c:char)=integer; 3 | var d:a('O','K'); 4 | begin 5 | writeln(d.b,d.c) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf153.pas: -------------------------------------------------------------------------------- 1 | program fjf153; {WRONG} 2 | var 3 | i:integer; 4 | b:BindingType; 5 | begin 6 | b:=Binding(i) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf171.pas: -------------------------------------------------------------------------------- 1 | program fjf171; 2 | type a(b:char)=char; 3 | var c:a('O')='K'; 4 | begin 5 | with c do writeln(b,c) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf194.pas: -------------------------------------------------------------------------------- 1 | program fjf194; 2 | var s:array [1..1] of ^string; 3 | begin 4 | s[1]:=@'OK'; 5 | writeln(s[1]^) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf206c.pas: -------------------------------------------------------------------------------- 1 | program fjf206c; 2 | var a: LongestInt = High (LongestCard) + High (LongestInt); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf206d.pas: -------------------------------------------------------------------------------- 1 | program fjf206d; 2 | var a: LongestInt = High (LongestInt) + High (LongestCard); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf206e.pas: -------------------------------------------------------------------------------- 1 | program fjf206e; 2 | var a: LongestInt = High (LongestInt) + High (LongestInt); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf206h.pas: -------------------------------------------------------------------------------- 1 | program fjf206h; 2 | var a: LongestInt = LongestCard (1) - High (LongestCard); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf206i.pas: -------------------------------------------------------------------------------- 1 | program fjf206i; 2 | var a: LongestInt = LongestCard (High (LongestInt)) - (-1); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf206j.pas: -------------------------------------------------------------------------------- 1 | program fjf206j; 2 | var a: LongestInt = LongestCard (1) - Low (LongestInt); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf206k.pas: -------------------------------------------------------------------------------- 1 | program fjf206k; 2 | var a: LongestInt = LongestInt (1) - High (LongestCard); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf206l.pas: -------------------------------------------------------------------------------- 1 | program fjf206l; 2 | var a: LongestInt = (-2) - LongestCard (High (LongestInt)); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf206o.pas: -------------------------------------------------------------------------------- 1 | program fjf206o; 2 | var a: LongestInt = Low (LongestInt) - High (LongestInt); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf211ju.pas: -------------------------------------------------------------------------------- 1 | unit fjf211ju; 2 | interface 3 | var 4 | a: array [1 .. 10] of (foo,bar,baz); 5 | implementation 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf211mu.pas: -------------------------------------------------------------------------------- 1 | unit fjf211mu; 2 | interface 3 | type 4 | a = array [(foo,bar,baz)] of Integer; 5 | implementation 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf211ou.pas: -------------------------------------------------------------------------------- 1 | unit fjf211ou; 2 | interface 3 | var 4 | a: file [(foo,bar,baz)] of Integer; 5 | implementation 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf238.pas: -------------------------------------------------------------------------------- 1 | program fjf238; 2 | 3 | #define foo 4 | #if defined(foo) 5 | begin 6 | writeln ('OK') 7 | end. 8 | #endif 9 | -------------------------------------------------------------------------------- /p/test/fjf239u.pas: -------------------------------------------------------------------------------- 1 | unit fjf239u; 2 | 3 | interface 4 | 5 | var v : (b, a, r); 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf245b.pas: -------------------------------------------------------------------------------- 1 | program fjf245b; 2 | var 3 | x:integer=42; external; { WRONG } 4 | begin 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf245d.pas: -------------------------------------------------------------------------------- 1 | program fjf245d; 2 | const 3 | x:integer=42; external; { WRONG } 4 | begin 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf266.pas: -------------------------------------------------------------------------------- 1 | program fjf266; 2 | {$define foo} 3 | {$if defined(foo)} 4 | begin 5 | writeln ('OK') 6 | end. 7 | {$endif} 8 | -------------------------------------------------------------------------------- /p/test/fjf332a.pas: -------------------------------------------------------------------------------- 1 | program fjf332a; 2 | 3 | begin 4 | writeln (pred (#255, 255 - ord ('O')), succ (#0, ord ('K'))) 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf402b.pas: -------------------------------------------------------------------------------- 1 | {$if 0} 2 | '(*' 3 | {$endif} 4 | 5 | program fjf402b; 6 | 7 | begin 8 | WriteLn ('OK') 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf402c.pas: -------------------------------------------------------------------------------- 1 | {$if 0} 2 | '{' 3 | {$endif} 4 | 5 | program fjf402b; 6 | 7 | begin 8 | WriteLn ('OK') 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf427c.pas: -------------------------------------------------------------------------------- 1 | program fjf427c; 2 | 3 | begin 4 | WriteLn ('failed') 5 | end. 6 | #if 0 { WRONG } 7 | #if 0 8 | #endif 9 | -------------------------------------------------------------------------------- /p/test/fjf433b.pas: -------------------------------------------------------------------------------- 1 | program fjf433b; 2 | 3 | { WARN } 4 | #define foo (*$X+*) 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf433d.pas: -------------------------------------------------------------------------------- 1 | program fjf433d; 2 | 3 | { WARN } 4 | #(*$X+*)define foo 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf433f.pas: -------------------------------------------------------------------------------- 1 | program fjf433f; 2 | 3 | { WARN } 4 | {$define foo (*$X+*)} 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf433g.pas: -------------------------------------------------------------------------------- 1 | program fjf433g; 2 | 3 | { WARN } 4 | {${$X+}define foo} 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf433h.pas: -------------------------------------------------------------------------------- 1 | program fjf433h; 2 | 3 | { WARN } 4 | {$(*$X+*)define foo} 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf433i.pas: -------------------------------------------------------------------------------- 1 | program fjf433i; 2 | 3 | { WARN } 4 | (*$define foo {$X+}*) 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf433k.pas: -------------------------------------------------------------------------------- 1 | program fjf433k; 2 | 3 | { WARN } 4 | (*${$X+}define foo*) 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf433l.pas: -------------------------------------------------------------------------------- 1 | program fjf433l; 2 | 3 | { WARN } 4 | (*$(*$X+*)define foo*) 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf44.pas: -------------------------------------------------------------------------------- 1 | program fjf44; 2 | 3 | {$W-} 4 | 5 | begin 6 | read; 7 | write; 8 | writeln ( 'OK' ); 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf470a.pas: -------------------------------------------------------------------------------- 1 | program fjf470a; 2 | 3 | var 4 | _foo : Integer; { WARN } 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf484b.pas: -------------------------------------------------------------------------------- 1 | program fjf484b; 2 | 3 | var f : Text; 4 | 5 | begin 6 | Rewrite (f, ''); 7 | WriteLn (f, 'OK') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf488i5.pas: -------------------------------------------------------------------------------- 1 | program fjf488i5; 2 | 3 | begin 4 | if Trim ('') = '' then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf488o5.pas: -------------------------------------------------------------------------------- 1 | program fjf488o5; 2 | begin 3 | if Index ('', '') = 1 then WriteLn ('OK') else WriteLn ('failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf488o6.pas: -------------------------------------------------------------------------------- 1 | program fjf488o6; 2 | begin 3 | if Index ('', 'a') = 0 then WriteLn ('OK') else WriteLn ('failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf488p5.pas: -------------------------------------------------------------------------------- 1 | program fjf488p5; 2 | begin 3 | if Pos ('', '') = 1 then WriteLn ('OK') else WriteLn ('failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf488p6.pas: -------------------------------------------------------------------------------- 1 | program fjf488p6; 2 | begin 3 | if Pos ('a', '') = 0 then WriteLn ('OK') else WriteLn ('failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf488p7.pas: -------------------------------------------------------------------------------- 1 | program fjf488p7; 2 | begin 3 | if Pos ('', 'abc') = 1 then WriteLn ('OK') else WriteLn ('failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf534.pas: -------------------------------------------------------------------------------- 1 | { FLAG --extended-pascal } 2 | 3 | program fjf534 (Output); 4 | 5 | begin 6 | WriteLn ('O' + 'K') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf558g.pas: -------------------------------------------------------------------------------- 1 | program fjf558g; 2 | 3 | begin 4 | WriteLn ('failed'); 5 | goto 9; { WRONG } 6 | 9:{ WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf561b.pas: -------------------------------------------------------------------------------- 1 | program fjf561b; 2 | 3 | import fjf561i in 'fjf561m.pas'; 4 | 5 | begin 6 | WriteLn (fjf561m) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf568.pas: -------------------------------------------------------------------------------- 1 | program fjf568; 2 | 3 | var 4 | x: set of Real; { WRONG } 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf579c.pas: -------------------------------------------------------------------------------- 1 | program fjf579c; 2 | 3 | var 4 | s: String (0); { WRONG } 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf628.pas: -------------------------------------------------------------------------------- 1 | program fjf628; 2 | 3 | uses fjf628b; 4 | 5 | begin 6 | WriteLn ('failed'); 7 | p (b) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf641i.pas: -------------------------------------------------------------------------------- 1 | program fjf641i; 2 | 3 | begin 4 | if Arg (42.7) = 0 then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf641k.pas: -------------------------------------------------------------------------------- 1 | program fjf641k; 2 | 3 | begin 4 | if Arg (42) = 0 then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf654a.pas: -------------------------------------------------------------------------------- 1 | program fjf654a; 2 | 3 | begin 4 | if EOF (Output) then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf678a.pas: -------------------------------------------------------------------------------- 1 | program fjf678a; 2 | 3 | var 4 | a: file = (); { WRONG } 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf733c.pas: -------------------------------------------------------------------------------- 1 | program fjf733c; 2 | 3 | {$disable-keyword foo} { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf733d.pas: -------------------------------------------------------------------------------- 1 | program fjf733d; 2 | 3 | {$enable-keyword foo} { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf734c.pas: -------------------------------------------------------------------------------- 1 | { FLAG -Wimplicit-io } 2 | 3 | program fjf734c; 4 | 5 | begin 6 | WriteLn ('failed') { WARN } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf735p.pas: -------------------------------------------------------------------------------- 1 | program fjf735p; 2 | 3 | import fjf735o; fjf735n; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf736t.pas: -------------------------------------------------------------------------------- 1 | module fjf736t interface; 2 | 3 | export fjf736t = (b .. d); 4 | 5 | type 6 | e = (d, b); 7 | 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf751g.pas: -------------------------------------------------------------------------------- 1 | { FLAG -Widentifier-case } 2 | 3 | program fjf751g; 4 | 5 | uses fjf751u; { WARN } 6 | 7 | begin 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf758s.pas: -------------------------------------------------------------------------------- 1 | program fjf758s; 2 | 3 | procedure foo; forward; { WRONG } 4 | 5 | uses fjf758v; 6 | 7 | begin 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf769a.pas: -------------------------------------------------------------------------------- 1 | program fjf769a; 2 | 3 | type 4 | a = array [1 .. 10] of object end; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf781h.pas: -------------------------------------------------------------------------------- 1 | program fjf781h; 2 | 3 | var 4 | VBaz: Integer; attribute (name = 42); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf78u.pas: -------------------------------------------------------------------------------- 1 | unit fjf78u; 2 | 3 | interface 4 | 5 | const c = SqRt (0); 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf792c.pas: -------------------------------------------------------------------------------- 1 | program fjf792c; 2 | 3 | begin 4 | var Attribute: String (2) = 'OK'; 5 | WriteLn (Attribute) 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf80.pas: -------------------------------------------------------------------------------- 1 | program fjf80; 2 | begin 3 | case 0 of 4 | 1:writeln('failed') 5 | else writeln('OK') 6 | end 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf816b.pas: -------------------------------------------------------------------------------- 1 | program fjf816b; 2 | 3 | var 4 | a, b: Integer; attribute (name = 'x'); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf818.pas: -------------------------------------------------------------------------------- 1 | program fjf818; 2 | 3 | import fjf818m; 4 | 5 | var 6 | v: t; 7 | 8 | begin 9 | v.p 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/fjf822.pas: -------------------------------------------------------------------------------- 1 | program fjf822; 2 | 3 | var 4 | i: Integer; 5 | j: Void absolute i; { WRONG } 6 | 7 | begin 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf840g.pas: -------------------------------------------------------------------------------- 1 | program fjf840g; 2 | 3 | const 4 | s = 'ABC'; 5 | 6 | begin 7 | s[1 .. 2] := 'XX' { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf843m.pas: -------------------------------------------------------------------------------- 1 | module fjf843m; 2 | 3 | export fjf843m = all; 4 | 5 | const OK = 'OK'; 6 | 7 | end; 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf864h.pas: -------------------------------------------------------------------------------- 1 | program fjf864h; 2 | 3 | uses fjf864m; 4 | 5 | var 6 | v: oo; 7 | 8 | begin 9 | v.u 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/fjf915j.pas: -------------------------------------------------------------------------------- 1 | program fjf915j; 2 | 3 | var 4 | a: ^Integer; 5 | 6 | begin 7 | New (a, WriteLn) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf915kk.pas: -------------------------------------------------------------------------------- 1 | program fjf915kk; 2 | 3 | var 4 | a: ^Integer; 5 | 6 | begin 7 | Dispose (a, Page) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf915l.pas: -------------------------------------------------------------------------------- 1 | program fjf915l; 2 | 3 | var 4 | a: ^Integer; 5 | 6 | begin 7 | New (a, Sqr (2)) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf915nn.pas: -------------------------------------------------------------------------------- 1 | program fjf915nn; 2 | 3 | var 4 | a: ^Integer; 5 | 6 | begin 7 | Dispose (a, Exit) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf921c2.pas: -------------------------------------------------------------------------------- 1 | program fjf921c2; 2 | 3 | import fjf921o; 4 | 5 | begin 6 | WriteLn ('failed ', a) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf921e2.pas: -------------------------------------------------------------------------------- 1 | program fjf921e2; 2 | 3 | import fjf921q; 4 | 5 | begin 6 | WriteLn ('failed ', a) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf937m.pas: -------------------------------------------------------------------------------- 1 | module fjf937m; 2 | 3 | export fjf937m = (a); 4 | 5 | const a = 'OK'; 6 | 7 | end; 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf982c.pas: -------------------------------------------------------------------------------- 1 | {$extended-pascal} 2 | 3 | program fjf982c; 4 | 5 | begin 6 | case 2 of 7 | end; { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/link8.pas: -------------------------------------------------------------------------------- 1 | Program Link8; 2 | 3 | {$L link8c.c } { WRONG C source } 4 | 5 | begin 6 | writeln ( 'failed' ); 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/marius2b.pas: -------------------------------------------------------------------------------- 1 | program AutoMakeBug; 2 | 3 | uses 4 | First in 'marius2u.pas'; 5 | 6 | begin 7 | CallFirst; 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/maur6u.pas: -------------------------------------------------------------------------------- 1 | unit maur6u; 2 | 3 | interface 4 | uses maur6uu; 5 | var O:string[2] = 'O'; 6 | 7 | implementation 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/minimax.pas: -------------------------------------------------------------------------------- 1 | Program MiniMax; 2 | 3 | begin 4 | write ( max ( 'O', 'K' ) ); 5 | writeln ( min ( 'O', 'K' ) ); 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/mod14u.pas: -------------------------------------------------------------------------------- 1 | module mod14u; 2 | export mod14u=(dummy); 3 | const dummy = 'dummy'; 4 | end; 5 | import mod14v; 6 | end 7 | . 8 | -------------------------------------------------------------------------------- /p/test/mod15b.pas: -------------------------------------------------------------------------------- 1 | program mod15b; 2 | import e1 qualified in 'mod15m.pas'; 3 | begin 4 | e1.x := 1; 5 | e1.f(1) 6 | end 7 | . 8 | -------------------------------------------------------------------------------- /p/test/powtest.out: -------------------------------------------------------------------------------- 1 | -1 2 | -2 3 | -4 4 | 5 | -1 6 | -1 7 | -1 8 | 9 | 1 10 | 1 11 | 1 12 | 13 | 1 14 | 2 15 | 4 16 | 17 | -------------------------------------------------------------------------------- /p/test/real2.pas: -------------------------------------------------------------------------------- 1 | { FLAG -fextended-pascal } 2 | program real; 3 | var r : real; 4 | begin 5 | r := 999. { WRONG } 6 | end 7 | . 8 | -------------------------------------------------------------------------------- /p/test/upath2.pas: -------------------------------------------------------------------------------- 1 | Program UPath2; 2 | 3 | {$unit-path="/foo/bar"} { WRONG } 4 | 5 | begin 6 | writeln ( 'failed' ) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/az26.pas: -------------------------------------------------------------------------------- 1 | program az26(output); 2 | begin 3 | writeln('failed: ',1:2.3) (* WRONG - field width should be integer *) 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/az39.pas: -------------------------------------------------------------------------------- 1 | program az39(output); 2 | var s:set of boolean; 3 | begin 4 | s:=1; (* WRONG *) 5 | writeln('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/bernh7.pas: -------------------------------------------------------------------------------- 1 | Program 2 | Bug01; 3 | Uses 4 | Global in 'bernhard7u.pas'; 5 | 6 | Begin 7 | writeln ( 'OK' ); 8 | End. 9 | -------------------------------------------------------------------------------- /p/test/bo4-20.pas: -------------------------------------------------------------------------------- 1 | program BO4_20; 2 | 3 | import BO4_20m; 4 | 5 | var 6 | a: o; 7 | 8 | begin 9 | a.Init 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/chief46v.pas: -------------------------------------------------------------------------------- 1 | unit chief46v; 2 | interface 3 | implementation 4 | uses chief46u; 5 | initialization 6 | foo := 'O'; 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/con1.pas: -------------------------------------------------------------------------------- 1 | program con1(output); 2 | var x : integer value 5; 3 | const c = x; { WRONG } 4 | begin 5 | writeln(c) 6 | end 7 | . 8 | -------------------------------------------------------------------------------- /p/test/eike1a.pas: -------------------------------------------------------------------------------- 1 | program Eike1a; 2 | 3 | type 4 | TFoo = 2.7 .. 2.8; { WRONG } 5 | 6 | begin 7 | WriteLn ('failed'); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/eike3b.pas: -------------------------------------------------------------------------------- 1 | program Eike3b; 2 | begin 3 | Include (['f', 'a', 'i', 'l'], 'x'); { WRONG } 4 | WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/eike3c.pas: -------------------------------------------------------------------------------- 1 | program Eike3c; 2 | begin 3 | Exclude (['f', 'a', 'i', 'l'], 'a'); { WRONG } 4 | WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/eike4.pas: -------------------------------------------------------------------------------- 1 | program Eike4; 2 | 3 | var 4 | Name: Integer; external Name 'name'; 5 | 6 | begin 7 | WriteLn ('OK') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/emil20.out: -------------------------------------------------------------------------------- 1 | read: `first line' 2 | (end of line) 3 | read: `second line, with no terminator' 4 | (end of line) 5 | (end of file) 6 | -------------------------------------------------------------------------------- /p/test/fjf1018f.pas: -------------------------------------------------------------------------------- 1 | {$borland-pascal} 2 | 3 | program fjf1018f (Output); 4 | 5 | uses fjf1018v; { WRONG } 6 | 7 | begin 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf101b.pas: -------------------------------------------------------------------------------- 1 | Program fjf101b; 2 | 3 | { FLAG --uses=foo101bu(fjf101bu),fjf101av } 4 | 5 | begin 6 | O; 7 | K; 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf1026j.pas: -------------------------------------------------------------------------------- 1 | program fjf1026j; 2 | 3 | const 4 | a: String (2) = Succ ('N'); 5 | 6 | begin 7 | WriteLn (a, 'K'); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf1040m.pas: -------------------------------------------------------------------------------- 1 | module fjf1040m; 2 | 3 | export fjf1040m = all; 4 | 5 | type a = Integer; 6 | 7 | end; 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf1064c.pas: -------------------------------------------------------------------------------- 1 | unit fjf1064c; 2 | 3 | interface 4 | 5 | const 6 | Bar = 42; 7 | 8 | Implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/fjf116.pas: -------------------------------------------------------------------------------- 1 | program fjf116; 2 | Var S:String ( 42 ); 3 | begin 4 | Dec(S[0]); { WRONG } 5 | writeln ( 'failed' ); 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf175f.pas: -------------------------------------------------------------------------------- 1 | program fjf175f; 2 | 3 | var 4 | a : Integer = (); { WRONG } 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf191.pas: -------------------------------------------------------------------------------- 1 | program fjf191; 2 | begin 3 | if EQ(CString2String(nil),'') then WriteLn('OK') else WriteLn('Failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf198a.pas: -------------------------------------------------------------------------------- 1 | unit fjf198a; 2 | 3 | interface 4 | 5 | type a=text; 6 | 7 | implementation 8 | 9 | begin 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/fjf19u.pas: -------------------------------------------------------------------------------- 1 | unit fjf19u; 2 | 3 | interface 4 | 5 | type Card8=Cardinal attribute (Size = 8); 6 | 7 | implementation 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf206f.pas: -------------------------------------------------------------------------------- 1 | program fjf206f; 2 | var a: LongestInt = (-High (LongestInt)) + (-High (LongestInt)); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf211c.pas: -------------------------------------------------------------------------------- 1 | program fjf211c; 2 | import fjf211bm; 3 | var a: tfoo = foo; { WRONG } 4 | begin 5 | writeln('Failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf366a.pas: -------------------------------------------------------------------------------- 1 | unit fjf366a; 2 | 3 | interface 4 | 5 | const foo = 'failed'; 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf407b.pas: -------------------------------------------------------------------------------- 1 | unit fjf407b; 2 | 3 | interface 4 | 5 | implementation 6 | 7 | uses fjf407a, fjf407c; 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf407c.pas: -------------------------------------------------------------------------------- 1 | unit fjf407c; 2 | 3 | interface 4 | 5 | implementation 6 | 7 | begin 8 | WriteLn ('OK') 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf426t.pas: -------------------------------------------------------------------------------- 1 | program fjf426t; 2 | 3 | begin 4 | {$ifopt foobar} { WRONG } 5 | {$endif} 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf427a.pas: -------------------------------------------------------------------------------- 1 | program fjf427a; 2 | 3 | begin 4 | WriteLn ('failed') 5 | end. 6 | {$if 0} { WRONG } 7 | {$if 0} 8 | {$endif} 9 | -------------------------------------------------------------------------------- /p/test/fjf427f.pas: -------------------------------------------------------------------------------- 1 | program fjf427f; 2 | 3 | begin 4 | WriteLn ('OK') 5 | end. 6 | #if 0 7 | #if 0 8 | #endif 9 | #endif 10 | -------------------------------------------------------------------------------- /p/test/fjf430e.pas: -------------------------------------------------------------------------------- 1 | program fjf430e; 2 | 3 | begin 4 | {$local X+} 5 | {$endlocal X+} { WRONG } 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf430f.pas: -------------------------------------------------------------------------------- 1 | program fjf430f; 2 | 3 | begin 4 | {$local X+} { WRONG: unmatched `$local' } 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf430q.pas: -------------------------------------------------------------------------------- 1 | program fjf430q; 2 | 3 | begin 4 | {$X+,local X+} { WRONG } 5 | {$endlocal} 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf45.pas: -------------------------------------------------------------------------------- 1 | program fjf45; 2 | var a:array[10..1] of byte; { WRONG } 3 | begin 4 | writeln('failed: ', sizeof(a)) 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf453.pas: -------------------------------------------------------------------------------- 1 | program fjf453; 2 | 3 | var 4 | a, a, a : Integer; { WRONG } 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf468.pas: -------------------------------------------------------------------------------- 1 | program fjf468; 2 | 3 | procedure foo; external name ''; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf484c.pas: -------------------------------------------------------------------------------- 1 | program fjf484c; 2 | 3 | var f : Text; 4 | 5 | begin 6 | Rewrite (f, '-'); 7 | WriteLn (f, 'OK') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf488i2.pas: -------------------------------------------------------------------------------- 1 | program fjf488i2; 2 | 3 | var 4 | a : String (10) = 'OK '; 5 | 6 | begin 7 | WriteLn (Trim (a)) 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf488i6.pas: -------------------------------------------------------------------------------- 1 | program fjf488i6; 2 | 3 | begin 4 | if Trim (' ') = '' then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf488m3.pas: -------------------------------------------------------------------------------- 1 | program fjf488m3; 2 | 3 | var 4 | a : String (10) = 'xyOK'; 5 | 6 | begin 7 | WriteLn (Copy (a, 3)) 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf488o7.pas: -------------------------------------------------------------------------------- 1 | program fjf488o7; 2 | begin 3 | if Index ('abc', '') = 1 then WriteLn ('OK') else WriteLn ('failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf493c.pas: -------------------------------------------------------------------------------- 1 | program fjf493c; 2 | 3 | var f: Text; 4 | 5 | begin 6 | with Binding (f) do Bound := True { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf531a.pas: -------------------------------------------------------------------------------- 1 | {$standard-pascal} 2 | 3 | program fjf531a (Output); 4 | 5 | begin 6 | WriteLn (InOutRes) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf531b.pas: -------------------------------------------------------------------------------- 1 | {$standard-pascal} 2 | 3 | program fjf531b (Output); 4 | 5 | begin 6 | WriteLn (InOutRes) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf532.pas: -------------------------------------------------------------------------------- 1 | program fjf532; 2 | 3 | var s: set of Char = [,'c']; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf544b.pas: -------------------------------------------------------------------------------- 1 | program fjf544b; 2 | 3 | begin 4 | if LoCase ('X') = 'x' then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf546d.pas: -------------------------------------------------------------------------------- 1 | { FLAG --extended-pascal } 2 | program fjf546d (Output); 3 | begin 4 | WriteLn ("failed") { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf546e.pas: -------------------------------------------------------------------------------- 1 | { FLAG --borland-pascal } 2 | program fjf546e; 3 | {$double-quoted-strings} 4 | begin 5 | WriteLn ("OK") 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf558d.pas: -------------------------------------------------------------------------------- 1 | {$W-} 2 | 3 | program fjf558d; 4 | 5 | label 9; 6 | 7 | begin 8 | WriteLn ('OK'); 9 | 9: 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/fjf566a.pas: -------------------------------------------------------------------------------- 1 | program fjf566a; 2 | 3 | begin 4 | if (True < False) < True then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf566c.pas: -------------------------------------------------------------------------------- 1 | program fjf566c; 2 | 3 | begin 4 | if (True = False) < True then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf566d.pas: -------------------------------------------------------------------------------- 1 | program fjf566d; 2 | 3 | begin 4 | if (True > False) < True then WriteLn ('failed') else WriteLn ('OK') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf579a.pas: -------------------------------------------------------------------------------- 1 | program fjf579a; 2 | 3 | type 4 | t = String (0); { WRONG } 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf579b.pas: -------------------------------------------------------------------------------- 1 | program fjf579b; 2 | 3 | type 4 | t = String (-1); { WRONG } 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf632b.pas: -------------------------------------------------------------------------------- 1 | program fjf632b; 2 | 3 | {$W-} 4 | 5 | var a: Integer; 6 | 7 | begin 8 | WriteLn ('OK') 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf648a.pas: -------------------------------------------------------------------------------- 1 | program fjf648a; 2 | 3 | type 4 | T = file of Void; { WRONG } 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf678b.pas: -------------------------------------------------------------------------------- 1 | program fjf678b; 2 | 3 | var 4 | a: Text = Input; { WRONG } 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf704.pas: -------------------------------------------------------------------------------- 1 | program fjf704; 2 | 3 | type 4 | foo = Integer = 'C'; { WRONG } 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf714l.pas: -------------------------------------------------------------------------------- 1 | program fjf714l; 2 | 3 | var 4 | x: Real; 5 | 6 | begin 7 | WriteLn ('failed ', Succ (x)) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf714m.pas: -------------------------------------------------------------------------------- 1 | program fjf714m; 2 | 3 | var 4 | x: Real; 5 | 6 | begin 7 | WriteLn ('failed ', Pred (x)) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf721b.pas: -------------------------------------------------------------------------------- 1 | program fjf721b; 2 | 3 | function foo: Void; external; { WRONG } 4 | 5 | begin 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf726f.pas: -------------------------------------------------------------------------------- 1 | program fjf726f; 2 | 3 | const 4 | i = 1; 5 | 6 | begin 7 | WriteLn ('failed ', Low (i)) { WARN } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf726g.pas: -------------------------------------------------------------------------------- 1 | program fjf726g; 2 | 3 | const 4 | i = 1; 5 | 6 | begin 7 | WriteLn ('failed ', High (i)) { WARN } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf738d.pas: -------------------------------------------------------------------------------- 1 | program fjf738d(output); 2 | begin 3 | for char in [1 .. 2, 3] do; (* WRONG *) 4 | writeln('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf745a.pas: -------------------------------------------------------------------------------- 1 | program fjf745a; 2 | 3 | type 4 | a = '' .. ' '; { WRONG } 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf745b.pas: -------------------------------------------------------------------------------- 1 | program fjf745b; 2 | 3 | type 4 | a = ' ' .. ''; { WRONG } 5 | 6 | begin 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf751f.pas: -------------------------------------------------------------------------------- 1 | { FLAG -Widentifier-case-local } 2 | 3 | program fjf751f; 4 | 5 | uses fjf751u; { WARN } 6 | 7 | begin 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf758u.pas: -------------------------------------------------------------------------------- 1 | unit fjf758u; 2 | 3 | interface 4 | 5 | procedure foo; { WRONG } 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf770.pas: -------------------------------------------------------------------------------- 1 | program fjf770; 2 | 3 | uses fjf770u; 4 | 5 | var 6 | v: t; 7 | 8 | begin 9 | WriteLn (v) 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/fjf791.pas: -------------------------------------------------------------------------------- 1 | program fjf791; 2 | 3 | begin 4 | var Result: String (2); 5 | Result := 'OK'; 6 | WriteLn (Result) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf82.pas: -------------------------------------------------------------------------------- 1 | program fjf82; 2 | const 3 | a=Integer($8000000000000000); 4 | begin { WRONG } 5 | writeln('Failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf839c.pas: -------------------------------------------------------------------------------- 1 | program fjf839c; 2 | 3 | procedure f; attribute (ignorable); { WARN } 4 | begin 5 | end; 6 | 7 | begin 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf865a.pas: -------------------------------------------------------------------------------- 1 | program fjf865a; 2 | 3 | var 4 | A: array [1 .. 3] of Integer = (2: 3, 4, 5); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf865b.pas: -------------------------------------------------------------------------------- 1 | program fjf865b; 2 | 3 | var 4 | a: array [1 .. 2] of Integer = (1: 2, c: 4); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf887a.pas: -------------------------------------------------------------------------------- 1 | program fjf887a; 2 | 3 | var 4 | a: set of 1 .. 10; 5 | 6 | begin 7 | Include (a, 11) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf896.pas: -------------------------------------------------------------------------------- 1 | program fjf896; 2 | 3 | begin 4 | while false do 5 | var q : integer; { WRONG } 6 | writeln (q) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf901a.pas: -------------------------------------------------------------------------------- 1 | program fjf901a; 2 | 3 | const 4 | s = 'abc'; 5 | 6 | begin 7 | WriteLn (s[1 .. Chr (3)]) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf901b.pas: -------------------------------------------------------------------------------- 1 | program fjf901b; 2 | 3 | const 4 | s = 'abc'; 5 | 6 | begin 7 | WriteLn (s[Chr (2) .. 3]) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf904f.pas: -------------------------------------------------------------------------------- 1 | program fjf904f; 2 | 3 | const 4 | a = CompilerAssert (True, True, True); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf915jj.pas: -------------------------------------------------------------------------------- 1 | program fjf915jj; 2 | 3 | var 4 | a: ^Integer; 5 | 6 | begin 7 | Dispose (a, WriteLn) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf915ll.pas: -------------------------------------------------------------------------------- 1 | program fjf915ll; 2 | 3 | var 4 | a: ^Integer; 5 | 6 | begin 7 | Dispose (a, Sqr (2)) { WRONG } 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf921g2.pas: -------------------------------------------------------------------------------- 1 | program fjf921g2; 2 | 3 | import fjf921s2; 4 | 5 | begin 6 | WriteLn ('failed ', Ord (c)) { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf93.pas: -------------------------------------------------------------------------------- 1 | program fjf93; 2 | var a:string(20); 3 | begin 4 | Insert(a,a,1,2) { WRONG } 5 | writeln ( 'failed' ); 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf974e.pas: -------------------------------------------------------------------------------- 1 | program fjf974e; 2 | 3 | type 4 | t = array [1 .. 2] of Integer value 42; { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf994b.pas: -------------------------------------------------------------------------------- 1 | program fjf994b; 2 | 3 | var 4 | a: procedure attribute (iocritical = 1); { WRONG } 5 | 6 | begin 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/grp1a.pas: -------------------------------------------------------------------------------- 1 | {$extended-pascal} 2 | module grp1a; 3 | export grp1a = (t1); 4 | type 5 | t1 = char; 6 | end; 7 | 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/mod15h.pas: -------------------------------------------------------------------------------- 1 | program mod1; 2 | import e1 only(x) in 'mod15m.pas'; 3 | begin 4 | x := 1; 5 | e1.f(2) { WRONG } 6 | end 7 | . 8 | -------------------------------------------------------------------------------- /p/test/peter2a.pas: -------------------------------------------------------------------------------- 1 | program Peter2a; 2 | 3 | var 4 | s: String(10); 5 | begin 6 | if EQ(s[2..1], '') then { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/peter2b.pas: -------------------------------------------------------------------------------- 1 | program Peter2b; 2 | 3 | var 4 | s: String(10); 5 | begin 6 | if EQ(s[0..5], '') then { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/peter2c.pas: -------------------------------------------------------------------------------- 1 | program Peter2c; 2 | 3 | var 4 | s: String(10); 5 | begin 6 | if EQ(s[5..11], '') then { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/pmod1.pas: -------------------------------------------------------------------------------- 1 | program Test; 2 | 3 | import 4 | PModTest; 5 | 6 | begin 7 | i := -9; 8 | writeln('OK'); 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/rphil2.pas: -------------------------------------------------------------------------------- 1 | PROGRAM TestProgram; 2 | 3 | USES TestUnit1 in 'rphil1.pas'; 4 | 5 | BEGIN 6 | CheckFruit (Apples); 7 | END. 8 | -------------------------------------------------------------------------------- /p/test/russ3u.pas: -------------------------------------------------------------------------------- 1 | unit russ3u; 2 | 3 | interface 4 | 5 | var 6 | cap : integer; 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/sam12.pas: -------------------------------------------------------------------------------- 1 | program sam12; 2 | uses sam12_e, sam12_u; 3 | begin 4 | u_proc(e_a); { error is generated on this line } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/size.out: -------------------------------------------------------------------------------- 1 | Enter an integer 2 | 17 is the value 3 | this is a test 4 | enter a color 5 | The next color is yellow 6 | -------------------------------------------------------------------------------- /p/test/subrw2.pas: -------------------------------------------------------------------------------- 1 | Program SubRangeW2; 2 | 3 | Type 4 | foo = 42..7; { WRONG } 5 | 6 | begin 7 | writeln ( 'failed' ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/sven14b.pas: -------------------------------------------------------------------------------- 1 | Program Sven14b; 2 | 3 | uses 4 | Sven14bu; 5 | 6 | begin 7 | Init; 8 | writeln ( OK ); 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/sven18a.pas: -------------------------------------------------------------------------------- 1 | {$W-} 2 | 3 | {program Sven18a;} { The bug only shows without a `program' line } 4 | 5 | uses Sven18a; { WRONG } 6 | -------------------------------------------------------------------------------- /p/test/unitinfile.pas: -------------------------------------------------------------------------------- 1 | Program MyProgram; 2 | 3 | uses 4 | MyUnit3 in 'unitinfu.pas'; 5 | 6 | begin 7 | writeln ( OK ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/az27.pas: -------------------------------------------------------------------------------- 1 | program az27(output); 2 | begin 3 | writeln('failed: ','xx':true) (* WRONG - field width should be integer *) 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/az30.pas: -------------------------------------------------------------------------------- 1 | program az30(output,output); (* WRONG - program parameters are not distinct *) 2 | begin 3 | writeln('failed') 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/bo4-14.pas: -------------------------------------------------------------------------------- 1 | Program BO4_14; 2 | 3 | uses 4 | BO4_14w; 5 | 6 | begin 7 | O.K:= @'OK'; 8 | Print ( O.K^ ); 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/bo4_14u.pas: -------------------------------------------------------------------------------- 1 | Unit BO4_14u; 2 | 3 | Interface 4 | 5 | Type 6 | pString = ^String; 7 | 8 | Implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/bo4_15u.pas: -------------------------------------------------------------------------------- 1 | Unit BO4_15u; 2 | 3 | Interface 4 | 5 | Type 6 | pString = ^String; 7 | 8 | Implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/chief28.pas: -------------------------------------------------------------------------------- 1 | Program Chief28; 2 | 3 | Var 4 | p: ^File; 5 | 6 | begin 7 | p := p; 8 | writeln ( 'OK' ); 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/chief49.pas: -------------------------------------------------------------------------------- 1 | module Chief49; 2 | 3 | export Chief49 = all; 4 | 5 | const 6 | ok = 'OK'; 7 | 8 | end; 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/couper15.out: -------------------------------------------------------------------------------- 1 | SousChaine : 000000000 2 | Length(SousChaine) : 9 3 | SousChaine : 000000000 4 | Length(SousChaine) : 9 5 | Chaine : 1 6 | -------------------------------------------------------------------------------- /p/test/dblimp2.pas: -------------------------------------------------------------------------------- 1 | Program DblImp2; 2 | 3 | uses 4 | DblImp2u; { DblImp2u does something WRONG } 5 | 6 | begin 7 | failed 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf1018g.pas: -------------------------------------------------------------------------------- 1 | {$borland-pascal} 2 | 3 | program fjf1018g (Output); 4 | 5 | uses fjf1018w; 6 | 7 | begin 8 | p 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf102.pas: -------------------------------------------------------------------------------- 1 | program fjf102; 2 | var a:integer; 3 | begin 4 | FillChar(a,sizeof(a),1000); { WRONG } 5 | writeln('Failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf1037b.pas: -------------------------------------------------------------------------------- 1 | program fjf1037b; 2 | 3 | {$disable-predefined-identifier=WriteLn} 4 | 5 | begin 6 | WriteLn { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf1064a.pas: -------------------------------------------------------------------------------- 1 | unit fjf1064a; 2 | 3 | interface 4 | 5 | var 6 | Bar: Integer; 7 | 8 | Implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/fjf1064e.pas: -------------------------------------------------------------------------------- 1 | unit fjf1064e; 2 | 3 | interface 4 | 5 | type 6 | Bar = Integer; 7 | 8 | Implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/fjf1066s.pas: -------------------------------------------------------------------------------- 1 | unit fjf1066s; 2 | 3 | interface 4 | 5 | import fjf1066p; 6 | Implementation in 'fjf1064i.pas'; 7 | 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf114.pas: -------------------------------------------------------------------------------- 1 | program fjf114; 2 | type a(b:integer)=integer; 3 | 4 | var c:a; { WRONG } 5 | begin 6 | writeln('Failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf117.pas: -------------------------------------------------------------------------------- 1 | program fjf117; 2 | Var S:String(42); 3 | begin 4 | Dec(Length(S)); { WRONG } 5 | writeln ( 'failed' ); 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf151.pas: -------------------------------------------------------------------------------- 1 | program fjf151; 2 | type a(b,c:char)=integer; 3 | var d:a('O','K'); 4 | begin 5 | writeln(a.b,a.c) { WRONG } 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf201b.pas: -------------------------------------------------------------------------------- 1 | program fjf201b; 2 | {$w-} 3 | var a:^integer;b:^byte; 4 | begin 5 | a:=b; { WRONG } 6 | WriteLn('Failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf206g.pas: -------------------------------------------------------------------------------- 1 | program fjf206g; 2 | var a: LongestCard = (High (LongestCard) - 1) - High (LongestCard); { WRONG } 3 | begin 4 | end. 5 | -------------------------------------------------------------------------------- /p/test/fjf209.pas: -------------------------------------------------------------------------------- 1 | program fjf209; 2 | type x=record a:integer end; 3 | begin 4 | writeln ('failed ', sizeof(x.a)) { WRONG } 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211a.pas: -------------------------------------------------------------------------------- 1 | program fjf211a; 2 | uses fjf211au; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211e.pas: -------------------------------------------------------------------------------- 1 | program fjf211e; 2 | uses fjf211eu; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211eu.pas: -------------------------------------------------------------------------------- 1 | unit fjf211eu; 2 | interface 3 | type 4 | b = record 5 | a: (foo,bar,baz) 6 | end; 7 | implementation 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf211f.pas: -------------------------------------------------------------------------------- 1 | program fjf211f; 2 | uses fjf211fu; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211fu.pas: -------------------------------------------------------------------------------- 1 | unit fjf211fu; 2 | interface 3 | type 4 | b = object 5 | a: (foo,bar,baz) 6 | end; 7 | implementation 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf211g.pas: -------------------------------------------------------------------------------- 1 | program fjf211g; 2 | uses fjf211gu; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211h.pas: -------------------------------------------------------------------------------- 1 | program fjf211h; 2 | uses fjf211hu; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211i.pas: -------------------------------------------------------------------------------- 1 | program fjf211i; 2 | uses fjf211iu; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211j.pas: -------------------------------------------------------------------------------- 1 | program fjf211j; 2 | uses fjf211ju; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211k.pas: -------------------------------------------------------------------------------- 1 | program fjf211k; 2 | uses fjf211ku; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211l.pas: -------------------------------------------------------------------------------- 1 | program fjf211l; 2 | uses fjf211lu; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211m.pas: -------------------------------------------------------------------------------- 1 | program fjf211m; 2 | uses fjf211mu; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211n.pas: -------------------------------------------------------------------------------- 1 | program fjf211n; 2 | uses fjf211nu; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211nu.pas: -------------------------------------------------------------------------------- 1 | unit fjf211nu; 2 | interface 3 | var 4 | a: array [1 .. 10, (foo,bar,baz)] of Integer; 5 | implementation 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf211o.pas: -------------------------------------------------------------------------------- 1 | program fjf211o; 2 | uses fjf211ou; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211p.pas: -------------------------------------------------------------------------------- 1 | program fjf211p; 2 | uses fjf211pu; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf211q.pas: -------------------------------------------------------------------------------- 1 | program fjf211q; 2 | uses fjf211qu; 3 | begin 4 | if ord(baz)=2 then writeln('OK') else writeln('Failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf235b.pas: -------------------------------------------------------------------------------- 1 | program fjf235b; 2 | 3 | var a : char; 4 | 5 | begin 6 | if a >= 0 then; { WRONG } 7 | writeln ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf245c.pas: -------------------------------------------------------------------------------- 1 | program fjf245c; 2 | var 3 | x:integer=42; external name 'foo'; { WRONG } 4 | begin 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf250.pas: -------------------------------------------------------------------------------- 1 | program fjf250; 2 | var f:file; 3 | begin 4 | writeln('failed'); 5 | halt; 6 | reset(f,1,1); { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf251c.pas: -------------------------------------------------------------------------------- 1 | program fjf251c; 2 | var f:file; 3 | begin 4 | writeln('failed'); 5 | halt; 6 | reset(f,0); { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf251d.pas: -------------------------------------------------------------------------------- 1 | program fjf251d; 2 | var f:file; 3 | begin 4 | writeln('failed'); 5 | halt; 6 | reset(f,-1); { WRONG } 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf255d.pas: -------------------------------------------------------------------------------- 1 | program fjf255d; 2 | 3 | // Delphi style comments are enabled by default 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf270a.pas: -------------------------------------------------------------------------------- 1 | program fjf270a; 2 | 3 | var b:array[false..true] of char='OK'; 4 | 5 | begin 6 | writeln(b[false],b[true]) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf270b.pas: -------------------------------------------------------------------------------- 1 | program fjf270b; 2 | 3 | var b:array[false..true] of char='KO'; 4 | 5 | begin 6 | writeln(b[true],b[false]) 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf277.pas: -------------------------------------------------------------------------------- 1 | program fjf277; 2 | 3 | var ch:char; 4 | 5 | begin 6 | ch := 'e'; 7 | writeln (ch + 1 { WRONG }, 'ailed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf29.pas: -------------------------------------------------------------------------------- 1 | Program fjf29; 2 | 3 | Var 4 | S: String ( 4 ) = 'fail*@'; { WARN } 5 | 6 | begin 7 | writeln ( S, 'ed' ); 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf330u.pas: -------------------------------------------------------------------------------- 1 | unit fjf330u; 2 | 3 | interface 4 | 5 | type tstring = string (2048); 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf392.pas: -------------------------------------------------------------------------------- 1 | program fjf392; 2 | 3 | var a : Boolean; 4 | 5 | begin 6 | if a > 0 then; { WRONG } 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf427b.pas: -------------------------------------------------------------------------------- 1 | program fjf427b; 2 | 3 | begin 4 | WriteLn ('failed') 5 | end. 6 | (*$if 0*) { WRONG } 7 | (*$if 0*) 8 | (*$endif*) 9 | -------------------------------------------------------------------------------- /p/test/fjf430g.pas: -------------------------------------------------------------------------------- 1 | program fjf430g; 2 | 3 | begin 4 | {$endlocal} { WRONG: unmatched `$endlocal' } 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf430o.pas: -------------------------------------------------------------------------------- 1 | program fjf430o; 2 | 3 | begin 4 | {$local local X+} { WRONG } 5 | {$endlocal} 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf430p.pas: -------------------------------------------------------------------------------- 1 | program fjf430p; 2 | 3 | begin 4 | {$local X+,local X+} { WRONG } 5 | {$endlocal} 6 | WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf436b.pas: -------------------------------------------------------------------------------- 1 | program fjf436b; 2 | 3 | var 4 | s : String (3) = 'OK'; 5 | 6 | begin 7 | WriteLn (CString2String (s)) 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf488m2.pas: -------------------------------------------------------------------------------- 1 | program fjf488m2; 2 | 3 | var 4 | a : String (10) = 'OKxy'; 5 | 6 | begin 7 | WriteLn (Copy (a, 1, 2)) 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf488n2.pas: -------------------------------------------------------------------------------- 1 | program fjf488n2; 2 | 3 | var 4 | a : String (10) = 'OKxy'; 5 | 6 | begin 7 | WriteLn (SubStr (a, 1, 2)) 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf488n3.pas: -------------------------------------------------------------------------------- 1 | program fjf488n3; 2 | 3 | var 4 | a : String (10) = 'xyOK'; 5 | 6 | begin 7 | WriteLn (SubStr (a, 3)) 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf488vi.pas: -------------------------------------------------------------------------------- 1 | program fjf488vi; 2 | 3 | begin 4 | if Trim (Pred ('!')) = '' then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf488vl.pas: -------------------------------------------------------------------------------- 1 | program fjf488vl; 2 | 3 | begin 4 | if Length (succ ('a')) = 1 then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf495a8.pas: -------------------------------------------------------------------------------- 1 | program fjf495a8; 2 | 3 | begin 4 | if succ ('q') = pred ('s') then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf495b8.pas: -------------------------------------------------------------------------------- 1 | program fjf495b8; 2 | 3 | begin 4 | if succ ('q') <> pred ('s') then WriteLn ('failed') else WriteLn ('OK') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf495c8.pas: -------------------------------------------------------------------------------- 1 | program fjf495c8; 2 | 3 | begin 4 | if succ ('q') <= pred ('s') then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf495d8.pas: -------------------------------------------------------------------------------- 1 | program fjf495d8; 2 | 3 | begin 4 | if succ ('q') >= pred ('s') then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf495e8.pas: -------------------------------------------------------------------------------- 1 | program fjf495e8; 2 | 3 | begin 4 | if succ ('q') > pred ('s') then WriteLn ('failed') else WriteLn ('OK') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf495f8.pas: -------------------------------------------------------------------------------- 1 | program fjf495f8; 2 | 3 | begin 4 | if succ ('q') < pred ('s') then WriteLn ('failed') else WriteLn ('OK') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf52.pas: -------------------------------------------------------------------------------- 1 | Program fjf52; 2 | { FLAG --uses=fjf52a } 3 | 4 | procedure rab; external name 'baz'; 5 | 6 | begin 7 | rab 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf545.pas: -------------------------------------------------------------------------------- 1 | program fjf545; 2 | 3 | uses fjf545u; 4 | 5 | begin 6 | if Cond then WriteLn ('OK') else WriteLn ('failed') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf562e.pas: -------------------------------------------------------------------------------- 1 | program fjf562e; 2 | var i: Integer; 3 | begin 4 | for i := 1 to 10 do; { WARN } 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf562g.pas: -------------------------------------------------------------------------------- 1 | program fjf562g; 2 | var i: Integer; 3 | begin 4 | for i in [1, 2, 3] do; { WARN } 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf562i.pas: -------------------------------------------------------------------------------- 1 | program fjf562i; 2 | var i: Integer = 1; 3 | begin 4 | while i = 0 do; { WARN } 5 | WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf566b.pas: -------------------------------------------------------------------------------- 1 | program fjf566b; 2 | 3 | begin 4 | if (True < False) = False then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf566g.pas: -------------------------------------------------------------------------------- 1 | program fjf566g; 2 | 3 | begin 4 | if [1] >< [2] * [3] = [1] then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf566h.pas: -------------------------------------------------------------------------------- 1 | program fjf566h; 2 | 3 | begin 4 | if [1] + [2] >< [1] = [2] then WriteLn ('OK') else WriteLn ('failed') 5 | end. 6 | -------------------------------------------------------------------------------- /p/test/fjf58.pas: -------------------------------------------------------------------------------- 1 | program fjf58; 2 | var a:integer=65; 3 | begin 4 | case a of 5 | 'A':writeln('failed') { WRONG } 6 | end 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf625.pas: -------------------------------------------------------------------------------- 1 | program fjf625; 2 | 3 | uses fjf625b, fjf625a; { unusual order of `uses' } 4 | 5 | begin 6 | WriteLn ('OK') 7 | end. 8 | -------------------------------------------------------------------------------- /p/test/fjf628a.pas: -------------------------------------------------------------------------------- 1 | unit fjf628a; 2 | 3 | interface 4 | 5 | type 6 | t = (a, b, c); 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/fjf641d.pas: -------------------------------------------------------------------------------- 1 | program fjf641d; 2 | 3 | begin 4 | {$W-} 5 | if Re (42) = 42 then WriteLn ('OK') else WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf641f.pas: -------------------------------------------------------------------------------- 1 | program fjf641f; 2 | 3 | begin 4 | {$W-} 5 | if Im (42.7) = 0 then WriteLn ('OK') else WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf641h.pas: -------------------------------------------------------------------------------- 1 | program fjf641h; 2 | 3 | begin 4 | {$W-} 5 | if Im (42) = 0 then WriteLn ('OK') else WriteLn ('failed') 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf653.pas: -------------------------------------------------------------------------------- 1 | program fjf653; 2 | 3 | var 4 | foo: False; { WRONG } 5 | 6 | begin 7 | if foo then WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf665d.pas: -------------------------------------------------------------------------------- 1 | { FLAG --no-assertions } 2 | 3 | program fjf665d; 4 | 5 | begin 6 | Assert (True); 7 | WriteLn ('OK') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf665e.pas: -------------------------------------------------------------------------------- 1 | { FLAG --no-assertions } 2 | 3 | program fjf665e; 4 | 5 | begin 6 | Assert (False); 7 | WriteLn ('OK') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf693a.pas: -------------------------------------------------------------------------------- 1 | { FLAG --classic-pascal } 2 | 3 | program fjf693a (Output); 4 | begin 5 | WriteLn ('failed', '') { WRONG } 6 | end. 7 | -------------------------------------------------------------------------------- /p/test/fjf707b.pas: -------------------------------------------------------------------------------- 1 | program fjf707b; 2 | 3 | var 4 | t: array ['A' .. 'Z'] of String (255); 5 | 6 | begin 7 | WriteLn ('OK') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf736m.pas: -------------------------------------------------------------------------------- 1 | module fjf736m interface; 2 | 3 | export fjf736m = (b .. d); 4 | 5 | type 6 | e = (f, g, h, i, j); 7 | 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf744.pas: -------------------------------------------------------------------------------- 1 | program fjf744; 2 | 3 | type 4 | PFunction = ^function (...): Integer; 5 | 6 | begin 7 | WriteLn ('OK') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf745c.pas: -------------------------------------------------------------------------------- 1 | program fjf745c; 2 | 3 | begin 4 | case '' of { WRONG } 5 | ' ': 6 | end; 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf745d.pas: -------------------------------------------------------------------------------- 1 | program fjf745d; 2 | 3 | begin 4 | case ' ' of { WRONG } 5 | '': 6 | end; 7 | WriteLn ('failed') 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf751v.pas: -------------------------------------------------------------------------------- 1 | unit fjf751v; 2 | 3 | interface 4 | 5 | const 6 | FooBar = 'O'; 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/fjf751w.pas: -------------------------------------------------------------------------------- 1 | unit fjf751w; 2 | 3 | interface 4 | 5 | const 6 | FJF751X = 'OK'; 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /p/test/fjf758v.pas: -------------------------------------------------------------------------------- 1 | unit fjf758v; 2 | 3 | interface 4 | 5 | procedure foo; external {$W-}; 6 | 7 | implementation 8 | 9 | end. 10 | -------------------------------------------------------------------------------- /p/test/fjf764f.pas: -------------------------------------------------------------------------------- 1 | program fjf764f; 2 | 3 | procedure a (b: Integer; b: Integer); { WRONG } 4 | begin 5 | end; 6 | 7 | begin 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf781a.pas: -------------------------------------------------------------------------------- 1 | program fjf781a; 2 | 3 | var 4 | c: String (2) = 'OK'; attribute (const); 5 | 6 | begin 7 | WriteLn (c) 8 | end. 9 | -------------------------------------------------------------------------------- /p/test/fjf801.pas: -------------------------------------------------------------------------------- 1 | program fjf801; 2 | label absolute; 3 | begin 4 | WriteLn ('OK'); 5 | Halt; 6 | absolute: goto absolute; 7 | end. 8 | --------------------------------------------------------------------------------