1# Copyright 1998-2020 Free Software Foundation, Inc. 2 3# This program is free software; you can redistribute it and/or modify 4# it under the terms of the GNU General Public License as published by 5# the Free Software Foundation; either version 3 of the License, or 6# (at your option) any later version. 7# 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12# 13# You should have received a copy of the GNU General Public License 14# along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16# This file was written by Elena Zannoni (ezannoni@cygnus.com) 17# Rewritten to use gdb_test by Michael Chastain (chastain@redhat.com) 18 19# This file is part of the gdb testsuite 20# 21# tests for correctness of arithmetic operators, associativity and precedence 22# with integer type variables 23# 24 25# 26# test running programs 27# 28 29standard_testfile int-type.c 30 31if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug nowarnings}]} { 32 return -1 33} 34 35 36# 37# set it up at a breakpoint so we can play with the variable values 38# 39 40if ![runto_main] then { 41 perror "couldn't run to breakpoint" 42 continue 43} 44 45# 46# test expressions with "int" types 47# 48 49gdb_test_no_output "set variable x=14" 50gdb_test_no_output "set variable y=2" 51gdb_test_no_output "set variable z=2" 52gdb_test_no_output "set variable w=3" 53 54gdb_test "print x" "14" 55gdb_test "print y" "2" 56gdb_test "print z" "2" 57gdb_test "print w" "3" 58 59gdb_test "print x+y" "16" 60gdb_test "print x-y" "12" 61gdb_test "print x*y" "28" 62gdb_test "print x/y" "7" 63gdb_test "print x%y" "0" 64 65# x y z w 66# 14 2 2 3 67 68# Test associativity of +, -, *, % ,/ 69 70gdb_test "print x+y+z" "18" 71gdb_test "print x-y-z" "10" 72gdb_test "print x*y*z" "56" 73gdb_test "print x/y/z" "3" 74gdb_test "print x%y%z" "0" 75 76# test precedence rules on pairs of arithmetic operators 77 78gdb_test_no_output "set variable x=10" 79gdb_test_no_output "set variable y=4" 80 81# x y z w 82# 10 4 2 3 83 84gdb_test "print x+y-z" "12" 85gdb_test "print x+y*z" "18" 86gdb_test "print x+y%w" "11" 87gdb_test "print x+y/w" "11" 88gdb_test "print x-y*z" "2" 89gdb_test "print x-y%z" "10" 90gdb_test "print x-y/z" "8" 91gdb_test "print x*y/z" "20" 92gdb_test "print x*y%w" "1" 93gdb_test "print x/y%w" "2" 94 95# test use of parentheses to enforce different order of evaluation 96 97gdb_test "print x-(y+w)" "3" 98gdb_test "print x/(y*w)" "0" 99gdb_test "print x-(y/w)" "9" 100gdb_test "print (x+y)*w" "42" 101