xref: /netbsd-src/external/gpl3/gdb.old/dist/gdb/testsuite/lib/fortran.exp (revision 345cf9fb81bd0411c53e25d62cd93bdcaa865312) 
1# This test code is part of GDB, the GNU debugger.
2
3# Copyright 2010-2020 Free Software Foundation, Inc.
4#
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
7# the Free Software Foundation; either version 3 of the License, or
8# (at your option) any later version.
9#
10# This program is distributed in the hope that it will be useful,
11# but WITHOUT ANY WARRANTY; without even the implied warranty of
12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13# GNU General Public License for more details.
14#
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/>.
17
18# Auxiliary function to set the language to fortran.
19# The result is 1 (true) for success, 0 (false) for failure.
20
21proc set_lang_fortran {} {
22    if [gdb_test_no_output "set language fortran"] {
23	return 0
24    }
25    if [gdb_test "show language" ".* source language is \"fortran\"." \
26	   "set language to \"fortran\""] {
27	return 0
28    }
29    return 1
30}
31
32proc fortran_int4 {} {
33    if {[test_compiler_info {gcc-4-[012]-*}]} {
34	return "int4"
35    } elseif {[test_compiler_info {gcc-*}]} {
36	return "integer\\(kind=4\\)"
37    } elseif {[test_compiler_info {clang-*}]} {
38	return "integer"
39    } elseif {[test_compiler_info {icc-*}]} {
40	return "INTEGER\\(4\\)"
41    } else {
42	return "unknown"
43    }
44}
45
46proc fortran_int8 {} {
47    if {[test_compiler_info {gcc-4-[012]-*}]} {
48	return "int8"
49    } elseif {[test_compiler_info {gcc-*}]} {
50	return "integer\\(kind=8\\)"
51    } elseif {[test_compiler_info {clang-*}]} {
52	return "integer*8"
53    } elseif {[test_compiler_info {icc-*}]} {
54	return "INTEGER\\(8\\)"
55    } else {
56	return "unknown"
57    }
58}
59
60proc fortran_real4 {} {
61    if {[test_compiler_info {gcc-4-[012]-*}]} {
62	return "real4"
63    } elseif {[test_compiler_info {gcc-*}]} {
64	return "real\\(kind=4\\)"
65    } elseif {[test_compiler_info {clang-*}]} {
66	return "real"
67    } elseif {[test_compiler_info {icc-*}]} {
68	return "REAL\\(4\\)"
69    } else {
70	return "unknown"
71    }
72}
73
74proc fortran_real8 {} {
75    if {[test_compiler_info {gcc-4-[012]-*}]} {
76	return "real8"
77    } elseif {[test_compiler_info {gcc-*}]} {
78	return "real\\(kind=8\\)"
79    } elseif {[test_compiler_info {clang-*}]} {
80	return "double precision"
81    } elseif {[test_compiler_info {icc-*}]} {
82	return "REAL\\(8\\)"
83    } else {
84	return "unknown"
85    }
86}
87
88proc fortran_complex4 {} {
89    if {[test_compiler_info {gcc-4-[012]-*}]} {
90	return "complex4"
91    } elseif {[test_compiler_info {gcc-*}]} {
92	return "complex\\(kind=4\\)"
93    } elseif {[test_compiler_info {clang-*}]} {
94	return "complex"
95    } elseif {[test_compiler_info {icc-*}]} {
96	return "COMPLEX\\(4\\)"
97    } else {
98	return "unknown"
99    }
100}
101
102proc fortran_complex8 {} {
103    if {[test_compiler_info {gcc-4-[012]-*}]} {
104	return "complex8"
105    } elseif {[test_compiler_info {gcc-*}]} {
106	return "complex\\(kind=8\\)"
107    } elseif {[test_compiler_info {clang-*}]} {
108	return "double complex"
109    } elseif {[test_compiler_info {icc-*}]} {
110	return "COMPLEX\\(8\\)"
111    } else {
112	return "unknown"
113    }
114}
115
116proc fortran_complex16 {} {
117    if {[test_compiler_info {gcc-4-[012]-*}]} {
118	return "complex16"
119    } elseif {[test_compiler_info {gcc-*}]} {
120	return "complex\\(kind=16\\)"
121    } elseif {[test_compiler_info {clang-*}]} {
122	return "quad complex"
123    } elseif {[test_compiler_info {icc-*}]} {
124	return "COMPLEX\\(16\\)"
125    } else {
126	return "unknown"
127    }
128}
129
130proc fortran_logical4 {} {
131    if {[test_compiler_info {gcc-4-[012]-*}]} {
132	return "logical4"
133    } elseif {[test_compiler_info {gcc-*}]} {
134	return "logical\\(kind=4\\)"
135    } elseif {[test_compiler_info {clang-*}]} {
136	return "logical"
137    } elseif {[test_compiler_info {icc-*}]} {
138	return "LOGICAL\\(4\\)"
139    } else {
140	return "unknown"
141    }
142}
143
144proc fortran_character1 {} {
145    if {[test_compiler_info {gcc-4-[012]-*}]} {
146	return "character1"
147    } elseif {[test_compiler_info {gcc-*}]} {
148	return "character\\(kind=1\\)"
149    } elseif {[test_compiler_info {clang-*}]} {
150	return "character"
151    } elseif {[test_compiler_info {icc-*}]} {
152	return "CHARACTER\\(1\\)"
153    } else {
154	return "unknown"
155    }
156}
157
158# Return name of the main procedure based on the compiler version.
159
160proc fortran_main {} {
161    if {[test_compiler_info {gcc-4-[012]-*}]
162         || [test_compiler_info {gcc-*}]
163         || [test_compiler_info {icc-*}]} {
164	return "MAIN__"
165    } elseif {[test_compiler_info {clang-*}]} {
166	return "MAIN_"
167    } else {
168	return "unknown"
169    }
170}
171
172# Fortran version of runto_main.
173
174proc fortran_runto_main { } {
175    return [runto [fortran_main]]
176}
177