1: #line 968 "./lpsrc/flx_regress.pak" 2: //Check type constraints
3: #import <flx.flxh> 4: open C_hack; 5: header '#include <iostream>'; 6: 7: fun f: !fast_ints * !fast_ints -> int = "$1+$2"; 8: 9: print$ f$ 1,2L; endl; 10: 11: var x = 1; 12: var px:ptr[int] = addr x; 13: 14: proc h[t,u=ptr[t]]: u * t = "*$1=$2;"; 15: h(px,1); 16: 17: proc h2[t,u=ptr[t]]: u * t = "*$1=$2;"; 18: h2(px,1); 19: 20: proc k[t,u=ptr[t]]: u = "std::cout << *$1 <<std::endl;"; 21: k px;
1: 3 2: 1