# This file is part of grecs -*- Autotest -*- # Copyright (C) 2007, 2009-2011 Sergey Poznyakoff # # Grecs is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3, or (at your option) # any later version. # # Grecs is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with Grecs. If not, see . AT_SETUP([Reduction: block statement]) AT_KEYWORDS([reduce reduce01]) GRECS_TEST([ block "a" { scalar a; foo 1; } block "b" { foo 3; scalar b; } block "a" { scalar b; } ], [gcffmt -reduce], [0], [.block="b".foo: "3" .block="b".scalar: "b" .block="a".foo: "1" .block="a".scalar: "b" ]) AT_CLEANUP