OLD | NEW |
1 # Copyright 1994-1995, 1997-1998, 2007-2012 Free Software Foundation, | 1 # Copyright 1994-1995, 1997-1998, 2007-2012 Free Software Foundation, |
2 # Inc. | 2 # Inc. |
3 # Copyright 2007 Free Software Foundation, Inc. | 3 # Copyright 2007 Free Software Foundation, Inc. |
4 # | 4 # |
5 # This program is free software; you can redistribute it and/or modify | 5 # This program is free software; you can redistribute it and/or modify |
6 # it under the terms of the GNU General Public License as published by | 6 # it under the terms of the GNU General Public License as published by |
7 # the Free Software Foundation; either version 3 of the License, or | 7 # the Free Software Foundation; either version 3 of the License, or |
8 # (at your option) any later version. | 8 # (at your option) any later version. |
9 # | 9 # |
10 # This program is distributed in the hope that it will be useful, | 10 # This program is distributed in the hope that it will be useful, |
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 11 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13 # GNU General Public License for more details. | 13 # GNU General Public License for more details. |
14 # | 14 # |
15 # You should have received a copy of the GNU General Public License | 15 # You should have received a copy of the GNU General Public License |
16 # along with this program. If not, see <http://www.gnu.org/licenses/>. | 16 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
17 | 17 |
18 # This file was adapted from old Chill tests by Stan Shebs | 18 # This file was adapted from old Chill tests by Stan Shebs |
19 # (shebs@cygnus.com). | 19 # (shebs@cygnus.com). |
20 # Adapted to pascal by Pierre Muller | 20 # Adapted to pascal by Pierre Muller |
21 | 21 |
22 if $tracelevel then { | |
23 strace $tracelevel | |
24 } | |
25 | |
26 load_lib "pascal.exp" | 22 load_lib "pascal.exp" |
27 | 23 |
28 proc test_integer_literal_types_accepted {} { | 24 proc test_integer_literal_types_accepted {} { |
29 global gdb_prompt | 25 global gdb_prompt |
30 | 26 |
31 # Test various decimal values. | 27 # Test various decimal values. |
32 # Should be integer*4 probably. | 28 # Should be integer*4 probably. |
33 gdb_test "pt 123" "type = int" | 29 gdb_test "pt 123" "type = int" |
34 } | 30 } |
35 proc test_character_literal_types_accepted {} { | 31 proc test_character_literal_types_accepted {} { |
(...skipping 45 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
81 | 77 |
82 if [set_lang_pascal] then { | 78 if [set_lang_pascal] then { |
83 test_integer_literal_types_accepted | 79 test_integer_literal_types_accepted |
84 test_logical_literal_types_accepted | 80 test_logical_literal_types_accepted |
85 test_character_literal_types_accepted | 81 test_character_literal_types_accepted |
86 test_string_literal_types_accepted | 82 test_string_literal_types_accepted |
87 test_float_literal_types_accepted | 83 test_float_literal_types_accepted |
88 } else { | 84 } else { |
89 warning "$test_name tests suppressed." 0 | 85 warning "$test_name tests suppressed." 0 |
90 } | 86 } |
OLD | NEW |