1.2.39. test/regress/rt-1.01.39

Start felix section to test/regress/rt-1.01.39-0.flx[1 /1 ]
     1: #line 1558 "./lpsrc/flx_regress.pak"
     2: #import <flx.flxh>
     3: 
     4: module Foo
     5: {
     6:   union foo = | A | B;
     7: 
     8:   fun _ctor_foo (x:int):foo => A;
     9: }
    10: 
    11: val x = Foo::foo 5;
    12: 
    13: print$ match x with
    14: | Foo::A => "a"
    15: | Foo::B => "b"
    16: endmatch;
    17: endl;
End felix section to test/regress/rt-1.01.39-0.flx[1]
Start data section to test/regress/rt-1.01.39-0.expect[1 /1 ]
     1: a
End data section to test/regress/rt-1.01.39-0.expect[1]