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