common-block.exp revision 1.3
1# Copyright 2008-2015 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 24 25if {[prepare_for_testing ${testfile}.exp ${testfile} \ 26 $srcfile {debug f90 quiet}]} { 27 return -1 28} 29 30if ![runto MAIN__] then { 31 perror "couldn't run to breakpoint 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 45set int4 {(integer\(kind=4\)|INTEGER\(4\))} 46set real4 {(real\(kind=4\)|REAL\(4\))} 47set real8 {(real\(kind=8\)|REAL\(8\))} 48 49gdb_test "whatis foo$suffix" "No symbol \"foo$suffix\" in current context." 50gdb_test "ptype foo$suffix" "No symbol \"foo$suffix\" in current context." 51gdb_test "p foo$suffix" "No symbol \"foo$suffix\" in current context." 52gdb_test "whatis fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." 53gdb_test "ptype fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." 54gdb_test "p fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." 55 56gdb_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" 57gdb_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" 58 59gdb_test "ptype ix" "type = $int4" "ptype ix out" 60gdb_test "ptype iy" "type = $real4" "ptype iy out" 61gdb_test "ptype iz" "type = $real8" "ptype iz out" 62gdb_test "ptype ix_x" "type = $int4" "ptype ix_x out" 63gdb_test "ptype iy_y" "type = $real4" "ptype iy_y out" 64gdb_test "ptype iz_z" "type = $real8" "ptype iz_z out" 65 66gdb_test "p ix" " = 1 *" "p ix out" 67gdb_test "p iy" " = 2 *" "p iy out" 68gdb_test "p iz" " = 3 *" "p iz out" 69gdb_test "p ix_x" " = 11 *" "p ix_x out" 70gdb_test "p iy_y" " = 22 *" "p iy_y out" 71gdb_test "p iz_z" " = 33 *" "p iz_z out" 72 73gdb_breakpoint [gdb_get_line_number "stop-here-in"] 74gdb_continue_to_breakpoint "stop-here-in" 75 76gdb_test "whatis foo$suffix" "No symbol \"foo$suffix\" in current context." "whatis foo$suffix in" 77gdb_test "ptype foo$suffix" "No symbol \"foo$suffix\" in current context." "ptype foo$suffix in" 78gdb_test "p foo$suffix" "No symbol \"foo$suffix\" in current context." "p foo$suffix in" 79gdb_test "whatis fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." "whatis fo_o$suffix in" 80gdb_test "ptype fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." "ptype fo_o$suffix in" 81gdb_test "p fo_o$suffix" "No symbol \"fo_o$suffix\" in current context." "p fo_o$suffix in" 82 83gdb_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" 84gdb_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" 85 86gdb_test "ptype ix" "type = $int4" "ptype ix in" 87gdb_test "ptype iy2" "type = $real4" "ptype iy2 in" 88gdb_test "ptype iz" "type = $real8" "ptype iz in" 89gdb_test "ptype ix_x" "type = $int4" "ptype ix_x in" 90gdb_test "ptype iy_y" "type = $real4" "ptype iy_y in" 91gdb_test "ptype iz_z2" "type = $real8" "ptype iz_z2 in" 92 93gdb_test "p ix" " = 11 *" "p ix in" 94gdb_test "p iy2" " = 22 *" "p iy2 in" 95gdb_test "p iz" " = 33 *" "p iz in" 96gdb_test "p ix_x" " = 1 *" "p ix_x in" 97gdb_test "p iy_y" " = 2 *" "p iy_y in" 98gdb_test "p iz_z2" " = 3 *" "p iz_z2 in" 99