godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial revision

Browse Source
This commit is contained in:
em
1985-02-06 21:25:27 +00:00
parent d7abe0e8b6
commit 0ff3a17f5e
78 changed files with 6131 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

112
lang/cem/ctest/ctinit/init.cem.g Normal file
View File

@@ -0,0 +1,112 @@
Integers:
in1 4
in2 32767
in3 -32768
in4 0
inzero 0
ice1 2
ice2 8
ice3 1
ice4 0
ice5 7
ice6 19
ina 1,3,5
sint -1
lint -32765
Characters:
ch1 a(97)
ch2 0
cha1 Mesg
cha2
cha3 1
cha4 12
cha5 0123456789112345678921234567893123456789412345678951234567896123456789712345678981234567899123456789
cha6 1, 2, 3
4, 5, 6
pch1==cha2 yes
pch2 pch2
pch3 pch3
pch4==0 yes
stc 123
stc1 1234
mult[0],mult[1],mult[2] ab, bc, de
Floats:
fl1 0.00000000000000000000e+00
fl2 2.00000000000000000000e+00
fl2 2.00000000000000000000e+00
fl4 4.00000000000000000000e+00
fl5 2.93873587705571892581e-39
fl6 1.70141163178059625000e+38
fl7 0.00000000000000000000e+00
fla1 fla2 fla3
1.000000e+00 -1.000000e+00 1.100000e+01
3.000000e+00 -3.000000e+00 0.000000e+00
5.000000e+00 -5.000000e+00 0.000000e+00
2.000000e+00 -2.000000e+00 1.200000e+01
4.000000e+00 -4.000000e+00 0.000000e+00
6.000000e+00 -6.000000e+00 0.000000e+00
3.000000e+00 -3.000000e+00 1.300000e+01
5.000000e+00 -5.000000e+00 0.000000e+00
7.000000e+00 -7.000000e+00 0.000000e+00
0.000000e+00 0.000000e+00 1.400000e+01
0.000000e+00 0.000000e+00 0.000000e+00
0.000000e+00 0.000000e+00 0.000000e+00
Doubles:
dbl1 0.00000000000000000000e+00
dbl2 2.00000000000000000000e+00
dbl2 2.00000000000000000000e+00
dbl4 4.00000000000000000000e+00
dbl5 2.93873600000000034793e-39
dbl6 1.70141170000000000000e+38
dbl7 0.00000000000000000000e+00
dbla1 dbla2 dbla3
1.000000e+00 -1.000000e+00 1.100000e+01
3.000000e+00 -3.000000e+00 0.000000e+00
5.000000e+00 -5.000000e+00 0.000000e+00
2.000000e+00 -2.000000e+00 1.200000e+01
4.000000e+00 -4.000000e+00 0.000000e+00
6.000000e+00 -6.000000e+00 0.000000e+00
3.000000e+00 -3.000000e+00 1.300000e+01
5.000000e+00 -5.000000e+00 0.000000e+00
7.000000e+00 -7.000000e+00 0.000000e+00
0.000000e+00 0.000000e+00 1.400000e+01
0.000000e+00 0.000000e+00 0.000000e+00
0.000000e+00 0.000000e+00 0.000000e+00
long
lo1 14
lo2 -17
lo3 2147483647
lo4 -2147483648
lo5 0
lo6 1
structures
st1 sta[0..2]
s_i 0 1 2 3
s_ca[0] 0 97 0 0
s_ca[1] 0 98 0 0
s_ca[2] 0 99 0 0
s_l 0 10 0 0
s_f 0.000000e+00 -1.000000e+01 0.000000e+00 0.000000e+00
(sta[0].s_s1)->s_i = 1
bit fields:
sizeof stb 6
stb 1 2 3 4 3 6 7