summaryrefslogtreecommitdiff
path: root/test/ocaml/string_of_struct/sos.sail
blob: ecef0e3624b1e1125942352881acc7d3079d5a42 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
/* This is a regression test for a bug where an option type in a
struct would cause the ocaml backend to generate a bad string_of
function for the struct */

struct test = {
  test1 : int,
  test2 : option(int)
}

val main : unit -> unit

function main () = ()