1.2.25. test/regress/rt-1.01.25

     1: #line 968 "./lpsrc/flx_regress.pak"
     2: //Check type constraints
Start felix section to test/regress/rt-1.01.25-0.flx[1 /1 ]
     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;
End felix section to test/regress/rt-1.01.25-0.flx[1]
Start data section to test/regress/rt-1.01.25-0.expect[1 /1 ]
     1: 3
     2: 1
End data section to test/regress/rt-1.01.25-0.expect[1]