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

Program was adapted with NOFLOAT flag.

Browse source
This commit is contained in:
em 1985-02-15 14:23:34 +00:00
parent 04e454d3c6
commit 792d315beb
4 changed files with 17 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lang/cem/ctest/ctconv/conv.cem.g
View file

@ -9,13 +9,18 @@
(char) -1 = 255 (char) -1 = 255
(char) 10000 = 16 (char) 10000 = 16
From character From character
char 127, int 127, unsigned 177, long 127, float 127.000000 char 127, int 127, unsigned 177, long 127
char 255, int 255, unsigned 377, long 255, float 255.000000 float 127.000000
char 255, int 255, unsigned 377, long 255, float 255.000000 char 255, int 255, unsigned 377, long 255
float 255.000000
char 255, int 255, unsigned 377, long 255
float 255.000000
From integer From integer
char 192, int -64, unsigned 177700, long -64, float -64.000000 char 192, int -64, unsigned 177700, long -64
float -64.000000
From long From long
char 253, int -3, unsigned 177775, long -3, float -3.000000 char 253, int -3, unsigned 177775, long -3
float -3.000000
From float From float
char 121, int 121, unsigned 171, long 121, float 121.500000 char 121, int 121, unsigned 171, long 121, float 121.500000
char 0, int 0, unsigned 0, long 0, float 0.000100 char 0, int 0, unsigned 0, long 0, float 0.000100

2
lang/cem/ctest/ctest5/test1.cem.g
View file

@ -1,3 +1,3 @@
error 13 in test 5 error 13 in test 11
program test1 program test1
11 tests completed. Number of errors = 1 11 tests completed. Number of errors = 1

2
lang/cem/ctest/ctinit/init.cem.g
View file

@ -45,7 +45,7 @@ fl2 2.00000000000000000000e+00
fl2 2.00000000000000000000e+00 fl2 2.00000000000000000000e+00
fl4 4.00000000000000000000e+00 fl4 4.00000000000000000000e+00
fl5 2.93873587705571892581e-39 fl5 2.93873587705571892581e-39
fl6 1.70141163178059625000e+38 fl6 1.70141173319264427000e+38
fl7 0.00000000000000000000e+00 fl7 0.00000000000000000000e+00
fla1 fla2 fla3 fla1 fla2 fla3
1.000000e+00 -1.000000e+00 1.100000e+01 1.000000e+00 -1.000000e+00 1.100000e+01

10
lang/cem/ctest/ctstruct/str.cem.g
View file

@ -8,8 +8,8 @@ w1
st2.w1_i -577 st2.w1_i -577
st1.w1_i 577 st1.w1_i 577
w2 w2
s2t2: .w2_i 18000 .w2_d 3.141500 s2t2: .w2_i 18000 .w2_l 31415
s2t3->w2_d 3.141500 s2t3->w2_l 31415
w3 w3
s3t2.w3_a[ 0] a s3t2.w3_a[ 0] a
s3t2.w3_a[ 1] b s3t2.w3_a[ 1] b
@ -37,7 +37,7 @@ s3t2.w3_a[22] w
s3t2.w3_a[23] x s3t2.w3_a[23] x
s3t2.w3_a[24] y s3t2.w3_a[24] y
s3t2.w3_a[25] z s3t2.w3_a[25] z
s3t2.w3_x 1.000000 s3t2.w3_u 8000
s3t1.w3_a[ 0] A s3t1.w3_a[ 0] A
s3t1.w3_a[ 1] B s3t1.w3_a[ 1] B
s3t1.w3_a[ 2] C s3t1.w3_a[ 2] C
@ -64,7 +64,7 @@ s3t1.w3_a[22] W
s3t1.w3_a[23] X s3t1.w3_a[23] X
s3t1.w3_a[24] Y s3t1.w3_a[24] Y
s3t1.w3_a[25] Z s3t1.w3_a[25] Z
s3t1.w3_x 0.318319 s3t1.w3_u 587
structure parameters structure parameters
before -1 before -1
str.w3_a[ 0] 1 str.w3_a[ 0] 1
@ -93,7 +93,7 @@ str.w3_a[22] 23
str.w3_a[23] 24 str.w3_a[23] 24
str.w3_a[24] 25 str.w3_a[24] 25
str.w3_a[25] 26 str.w3_a[25] 26
str.w3_x 2.810000 str.w3_u 119
after 1000 after 1000
Stucture valued functions Stucture valued functions