1# Copyright 1998, 1999, 2001 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 2 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, write to the Free Software
15# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
16
17# Please email any bugs, comments, and/or additions to this file to:
18# bug-gdb@prep.ai.mit.edu
19
20# This file was written by Elena Zannoni (ezannoni@cygnus.com)
21# Rewritten to use gdb_test by Michael Chastain (chastain@redhat.com)
22
23# This file is part of the gdb testsuite
24#
25# tests for correctness of arithmetic operators, associativity and precedence
26# with integer type variables
27#
28
29if $tracelevel then {
30	strace $tracelevel
31	}
32
33#
34# test running programs
35#
36set prms_id 0
37set bug_id 0
38
39set testfile "int-type"
40set srcfile ${testfile}.c
41set binfile ${objdir}/${subdir}/${testfile}
42
43if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-w}] != "" } {
44     gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
45    }
46
47gdb_exit
48gdb_start
49gdb_reinitialize_dir $srcdir/$subdir
50gdb_load ${binfile}
51
52
53#
54# set it up at a breakpoint so we can play with the variable values
55#
56
57if ![runto_main] then {
58    perror "couldn't run to breakpoint"
59    continue
60}
61
62#
63# test expressions with "int" types
64#
65
66gdb_test "set variable x=14" ""
67gdb_test "set variable y=2"  ""
68gdb_test "set variable z=2"  ""
69gdb_test "set variable w=3"  ""
70
71gdb_test "print x" "14"
72gdb_test "print y"  "2"
73gdb_test "print z"  "2"
74gdb_test "print w"  "3"
75
76gdb_test "print x+y" "16"
77gdb_test "print x-y" "12"
78gdb_test "print x*y" "28"
79gdb_test "print x/y"  "7"
80gdb_test "print x%y"  "0"
81
82#  x  y  z  w
83# 14  2  2  3
84
85# Test associativity of +, -, *, % ,/
86
87gdb_test "print x+y+z" "18"
88gdb_test "print x-y-z" "10"
89gdb_test "print x*y*z" "56"
90gdb_test "print x/y/z"  "3"
91gdb_test "print x%y%z"  "0"
92
93# test precedence rules on pairs of arithmetic operators
94
95gdb_test "set variable x=10" ""
96gdb_test "set variable y=4"  ""
97
98#  x  y  z  w
99# 10  4  2  3
100
101gdb_test "print x+y-z" "12"
102gdb_test "print x+y*z" "18"
103gdb_test "print x+y%w" "11"
104gdb_test "print x+y/w" "11"
105gdb_test "print x-y*z"  "2"
106gdb_test "print x-y%z" "10"
107gdb_test "print x-y/z"  "8"
108gdb_test "print x*y/z" "20"
109gdb_test "print x*y%w"  "1"
110gdb_test "print x/y%w"  "2"
111
112# test use of parentheses to enforce different order of evaluation
113
114gdb_test "print x-(y+w)"  "3"
115gdb_test "print x/(y*w)"  "0"
116gdb_test "print x-(y/w)"  "9"
117gdb_test "print (x+y)*w" "42"
118