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 | 3 |
4 # This program is free software; you can redistribute it and/or modify | 4 # This program is free software; you can redistribute it and/or modify |
5 # it under the terms of the GNU General Public License as published by | 5 # it under the terms of the GNU General Public License as published by |
6 # the Free Software Foundation; either version 3 of the License, or | 6 # the Free Software Foundation; either version 3 of the License, or |
7 # (at your option) any later version. | 7 # (at your option) any later version. |
8 # | 8 # |
9 # This program is distributed in the hope that it will be useful, | 9 # This program is distributed in the hope that it will be useful, |
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 10 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
12 # GNU General Public License for more details. | 12 # GNU General Public License for more details. |
13 # | 13 # |
14 # You should have received a copy of the GNU General Public License | 14 # You should have received a copy of the GNU General Public License |
15 # along with this program. If not, see <http://www.gnu.org/licenses/>. | 15 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
16 | 16 |
17 # This file was adapted from old Chill tests by Stan Shebs | 17 # This file was adapted from old Chill tests by Stan Shebs |
18 # (shebs@cygnus.com). | 18 # (shebs@cygnus.com). |
19 | 19 |
20 if $tracelevel then { | |
21 strace $tracelevel | |
22 } | |
23 | |
24 load_lib "fortran.exp" | 20 load_lib "fortran.exp" |
25 | 21 |
26 if { [skip_fortran_tests] } { continue } | 22 if { [skip_fortran_tests] } { continue } |
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" |
(...skipping 53 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
87 | 83 |
88 if [set_lang_fortran] then { | 84 if [set_lang_fortran] then { |
89 test_integer_literal_types_accepted | 85 test_integer_literal_types_accepted |
90 test_integer_literal_types_rejected | 86 test_integer_literal_types_rejected |
91 test_logical_literal_types_accepted | 87 test_logical_literal_types_accepted |
92 test_character_literal_types_accepted | 88 test_character_literal_types_accepted |
93 test_float_literal_types_accepted | 89 test_float_literal_types_accepted |
94 } else { | 90 } else { |
95 warning "$test_name tests suppressed." 0 | 91 warning "$test_name tests suppressed." 0 |
96 } | 92 } |
OLD | NEW |