d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

added rcsid

Browse source
This commit is contained in:
sater 1984-07-12 14:07:14 +00:00
parent 10b9e1a748
commit 1eaf02a3e1
7 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/pc/test/machar.p
View file

@ -1,3 +1,5 @@
{ $Header$ }
procedure machar (var ibeta , it , irnd , ngrd , machep , negep , iexp, procedure machar (var ibeta , it , irnd , ngrd , machep , negep , iexp,
minexp , maxexp : integer ; var eps , epsneg , xmin , xmax : real ) ; minexp , maxexp : integer ; var eps , epsneg , xmin , xmax : real ) ;
var trapped:boolean; var trapped:boolean;

4
lang/pc/test/t1.p
View file

@ -20,7 +20,9 @@ program t1(input,output);
{ This program can be used to test out PASCAL compilers } { This program can be used to test out PASCAL compilers }
const ONE=1; TWO=2; TEN=10; FIFTY=50; MINONE=-1; const
rcsversion='$Header$';
ONE=1; TWO=2; TEN=10; FIFTY=50; MINONE=-1;
#ifndef NOFLOAT #ifndef NOFLOAT
RR1=1.0; RR1H=1.5; RR2=2.0; RR3=3.0; RR4=4.0; RRMINONE=-1.0; RR1=1.0; RR1H=1.5; RR2=2.0; RR3=3.0; RR4=4.0; RRMINONE=-1.0;
#endif #endif

1
lang/pc/test/t2.p
View file

@ -20,6 +20,7 @@ program t2(input,output);
{ This program can be used to test out PASCAL compilers } { This program can be used to test out PASCAL compilers }
const const
rcsversion='$Header$';
kew='q'; kew='q';
#ifndef NOFLOAT #ifndef NOFLOAT
eps = 2.0e-7; { This constant is machine dependent } eps = 2.0e-7; { This constant is machine dependent }

1
lang/pc/test/t3.p
View file

@ -19,6 +19,7 @@ program t3(input,output,f1,f2,f3,f4,f5,f6);
{ The Berkeley and EM-1 compilers both can handle this program } { The Berkeley and EM-1 compilers both can handle this program }
const rcsversion='$Header$';
type wavelength = (red,blue,yellow,q1,q2,q3,q4,q5,q6,q7,q8,q9,q10,q11, type wavelength = (red,blue,yellow,q1,q2,q3,q4,q5,q6,q7,q8,q9,q10,q11,
pink,green,orange); pink,green,orange);
spectrum= set of wavelength; spectrum= set of wavelength;

1
lang/pc/test/t4.p
View file

@ -18,6 +18,7 @@
program t4(input,output); program t4(input,output);
{ Tests for the EM-1 compiler } { Tests for the EM-1 compiler }
const rcsversion='$Header$';
type vec = array[1..1000] of integer; type vec = array[1..1000] of integer;
spectrum = set of (red,blue,yellow); spectrum = set of (red,blue,yellow);
#ifndef NOFLOAT #ifndef NOFLOAT

1
lang/pc/test/t5.p
View file

@ -1,5 +1,6 @@
{$i1000} {$i1000}
program test(output); program test(output);
const rcsversion='$Header$';
var b:false..true; var b:false..true;
i:integer; i:integer;
s:set of 0..999; s:set of 0..999;

3
lang/pc/test/tstenc.p
View file

@ -15,7 +15,8 @@
} }
program tstenc(output); program tstenc(output);
const trapno=150; const rcsversion='$Header$';
trapno=150;
var level:integer; var level:integer;
beenhere:boolean; beenhere:boolean;
e:integer; e:integer;