1 # Copyright
(C
) 2021-2023 Free Software Foundation
, Inc.
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.
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.
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
/>.
16 # This file is part of the gdb testsuite. It contains tests
for fortran
19 require allow_fortran_tests
21 standard_testfile .f90
22 load_lib
"fortran.exp"
24 if {[prepare_for_testing
"failed to prepare" $testfile $srcfile {debug f90}]} {
28 if {![fortran_runto_main
]} {
32 # Depending
on the compiler being used
, the type names can be printed
34 set int [fortran_int4
]
36 gdb_breakpoint
[gdb_get_line_number
"Display namelist"]
37 gdb_continue_to_breakpoint
"Display namelist"
39 # DW_TAG_namelist is supported starting gcc
4.9.
41 [test_compiler_info
{gfortran
-*} f90
] \
42 && [gcc_major_version
{gfortran
-*} f90
] >= 4.9]
44 gdb_test
"ptype nml" \
45 "type = Type nml\r\n *$int :: a\r\n *$int :: b\r\n *End Type nml"
46 gdb_test
"print nml" \
47 "\\$\[0-9\]+ = \\( a = 10, b = 20 \\)"
49 gdb_test
"ptype nml" \
50 "No symbol \"nml\" in current context\\."
51 gdb_test
"print nml" \
52 "No symbol \"nml\" in current context\\."