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

Added a test that at some point failed for the new CEMCOM

Browse Source
This commit is contained in:
ceriel 1988-01-19 11:45:43 +00:00
parent fd3b718980
commit 03e1f5dc93
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lang/cem/ctest/ctconv/conv.c
View File

@ -10,6 +10,7 @@ char rcs_id[] = "$Header$" ;
main() { main() {
t1() ; t1() ;
t2() ;
return 0 ; return 0 ;
} }
@ -139,3 +140,14 @@ t1() {
} }
return 0 ; return 0 ;
} }
t2()
{
long l1 = 0x1f010L;
long l2;
l2 = (unsigned short) l1;
printf("(unsigned short) 0x1f010L = 0x%lx\n", l2);
l2 = (short) l1;
printf("(short) 0x1f010L = 0x%lx\n", l2);
}

2
lang/cem/ctest/ctconv/conv.cem.g
View File

@ -30,3 +30,5 @@ From float
long 1223432064, float 1223432064.000000 long 1223432064, float 1223432064.000000
a[l] (l==3) -17 a[l] (l==3) -17
a[3l] -17 a[3l] -17
(unsigned short) 0x1f010L = 0xf010
(short) 0x1f010L = 0xfffff010