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