1/*
2 * Copyright 2016, NICTA
3 *
4 * This software may be distributed and modified according to the terms of
5 * the GNU General Public License version 2. Note that NO WARRANTY is provided.
6 * See "LICENSE_GPLv2.txt" for details.
7 *
8 * @TAG(NICTA_GPL)
9 */
10
11int bar ($ty:((A -> A, A)) x)
12{
13  int ret;
14  ret = (($spec:(A -> A))x.p1) (x.p2);
15  return ret;
16}
17