aboutsummaryrefslogtreecommitdiffstats
path: root/lib/dialyzer/test/small_tests_SUITE_data/src/recursive_types6.erl
blob: ff619767365681c0d51d4e23204bfea80454da24 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
-module(recursive_types6).

-export([test/0]).

-record(tree,   {node      :: non_neg_integer(),
		 kid = nil :: child()}).

-type tree() :: #tree{}.

-record(child,  {tree      :: 'nil' | tree()}).

-type child() :: #child{}.

-spec test() -> tree().

test() ->
  #tree{node = 42, kid = #child{tree = #tree{node = 42, kid = #child{tree = nil}}}}.