:- module foreign_enum_unknown_ctor.
:- interface.

:- type foo
    --->    foo1
    ;       foo2.

:- implementation.

:- pragma foreign_enum("C", foo/0, [
    foo1 - "1",
    foo2 - "2",
    bar - "3"
]).