1# Copyright 2008-2020 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 3 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, see <http://www.gnu.org/licenses/>. 15 16# This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>. 17 18if {[skip_fortran_tests]} { 19 return 0 20} 21 22standard_testfile .f90 23load_lib "fortran.exp" 24 25if {[prepare_for_testing "failed to prepare" ${testfile} \ 26 $srcfile {debug f90 quiet}]} { 27 return -1 28} 29 30if ![fortran_runto_main] then { 31 perror "couldn't run to main" 32 continue 33} 34 35gdb_breakpoint [gdb_get_line_number "stop-here-out"] 36gdb_continue_to_breakpoint "stop-here-out" 37 38# Common block naming with source name /foo/: 39# .symtab DW_TAG_common_block's DW_AT_name 40# Intel Fortran foo_ foo_ 41# GNU Fortran foo_ foo 42#set suffix "_" 43set suffix "" 44 45# Depending on the compiler being used, the type names can be printed differently. 46set int4 [fortran_int4] 47set real4 [fortran_real4] 48set real8 [fortran_real8] 49 50gdb_test "whatis foo$suffix" "No symbol \"foo$suffix\" in current context." 51gdb_test "ptype foo$suffix" "No symbol \"foo$suffix\" in current context." 52gdb_test "p foo$suffix" "No symbol \"foo$suffix\" in current context." 53gdb_test "whatis fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." 54gdb_test "ptype fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." 55gdb_test "p fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." 56 57gdb_test "info locals" "ix_x = 11\r\niy_y = 22\r\niz_z = 33\r\nix = 1\r\niy = 2\r\niz = 3" "info locals out" 58gdb_test "info common" "Contents of F77 COMMON block 'fo_o':\r\nix_x = 11\r\niy_y = 22\r\niz_z = 33\r\n\r\nContents of F77 COMMON block 'foo':\r\nix = 1\r\niy = 2\r\niz = 3" "info common out" 59 60gdb_test "ptype ix" "type = $int4" "ptype ix out" 61gdb_test "ptype iy" "type = $real4" "ptype iy out" 62gdb_test "ptype iz" "type = $real8" "ptype iz out" 63gdb_test "ptype ix_x" "type = $int4" "ptype ix_x out" 64gdb_test "ptype iy_y" "type = $real4" "ptype iy_y out" 65gdb_test "ptype iz_z" "type = $real8" "ptype iz_z out" 66 67gdb_test "p ix" " = 1 *" "p ix out" 68gdb_test "p iy" " = 2 *" "p iy out" 69gdb_test "p iz" " = 3 *" "p iz out" 70gdb_test "p ix_x" " = 11 *" "p ix_x out" 71gdb_test "p iy_y" " = 22 *" "p iy_y out" 72gdb_test "p iz_z" " = 33 *" "p iz_z out" 73 74gdb_breakpoint [gdb_get_line_number "stop-here-in"] 75gdb_continue_to_breakpoint "stop-here-in" 76 77gdb_test "whatis foo$suffix" "No symbol \"foo$suffix\" in current context." "whatis foo$suffix in" 78gdb_test "ptype foo$suffix" "No symbol \"foo$suffix\" in current context." "ptype foo$suffix in" 79gdb_test "p foo$suffix" "No symbol \"foo$suffix\" in current context." "p foo$suffix in" 80gdb_test "whatis fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." "whatis fo_o$suffix in" 81gdb_test "ptype fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." "ptype fo_o$suffix in" 82gdb_test "p fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." "p fo_o$suffix in" 83 84gdb_test "info locals" "ix = 11\r\niy2 = 22\r\niz = 33\r\nix_x = 1\r\niy_y = 2\r\niz_z2 = 3\r\niy = 5\r\niz_z = 55" "info locals in" 85gdb_test "info common" "Contents of F77 COMMON block 'fo_o':\r\nix = 11\r\niy2 = 22\r\niz = 33\r\n\r\nContents of F77 COMMON block 'foo':\r\nix_x = 1\r\niy_y = 2\r\niz_z2 = 3" "info common in" 86 87gdb_test "ptype ix" "type = $int4" "ptype ix in" 88gdb_test "ptype iy2" "type = $real4" "ptype iy2 in" 89gdb_test "ptype iz" "type = $real8" "ptype iz in" 90gdb_test "ptype ix_x" "type = $int4" "ptype ix_x in" 91gdb_test "ptype iy_y" "type = $real4" "ptype iy_y in" 92gdb_test "ptype iz_z2" "type = $real8" "ptype iz_z2 in" 93 94gdb_test "p ix" " = 11 *" "p ix in" 95gdb_test "p iy2" " = 22 *" "p iy2 in" 96gdb_test "p iz" " = 33 *" "p iz in" 97gdb_test "p ix_x" " = 1 *" "p ix_x in" 98gdb_test "p iy_y" " = 2 *" "p iy_y in" 99gdb_test "p iz_z2" " = 3 *" "p iz_z2 in" 100