From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 14047 invoked by alias); 10 Jun 2005 08:45:43 -0000 Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sources.redhat.com Received: (qmail 13856 invoked by uid 22791); 10 Jun 2005 08:45:36 -0000 Received: from ausmtp02.au.ibm.com (HELO ausmtp02.au.ibm.com) (202.81.18.187) by sourceware.org (qpsmtpd/0.30-dev) with ESMTP; Fri, 10 Jun 2005 08:45:36 +0000 Received: from sd0208e0.au.ibm.com (d23rh904.au.ibm.com [202.81.18.202]) by ausmtp02.au.ibm.com (8.12.10/8.12.10) with ESMTP id j5A8f4ZX359240 for ; Fri, 10 Jun 2005 18:41:04 +1000 Received: from d23av04.au.ibm.com (d23av04.au.ibm.com [9.190.250.237]) by sd0208e0.au.ibm.com (8.12.10/NCO/VER6.6) with ESMTP id j5A8mHA1093216 for ; Fri, 10 Jun 2005 18:48:17 +1000 Received: from d23av04.au.ibm.com (loopback [127.0.0.1]) by d23av04.au.ibm.com (8.12.11/8.13.3) with ESMTP id j5A8jOXM030918 for ; Fri, 10 Jun 2005 18:45:24 +1000 Received: from plinuxt18.cn.ibm.com (plinuxt18.cn.ibm.com [9.181.140.28]) by d23av04.au.ibm.com (8.12.11/8.12.11) with ESMTP id j5A8jMmq030860 for ; Fri, 10 Jun 2005 18:45:23 +1000 Date: Fri, 10 Jun 2005 08:45:00 -0000 From: Wu Zhou To: gdb-patches@sources.redhat.com Subject: [RFC]: Add test for verifying the fix to the SEGV error when printing F77 array element Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII X-SW-Source: 2005-06/txt/msg00091.txt.bz2 Daniel and all, This is the testcase associated with the following patch: http://sources.redhat.com/ml/gdb-patches/2005-06/msg00090.html Without the patch above, the last three tests fail. With the patch, all tests pass. It is tested on ppc64 with g77-3.3.3 and g77-3.4.3. It is my first attempt to add a new testcase into GDB testsuite. So if there is any errors or missings, please feel free to tell me. Thanks a lot! 2005-06-10 Wu Zhou * gdb.fortran/array_element.f: New file. * gdb.fortran/array_element.exp: New testcase. array_element.f ====================================== dimension a(10) write(*,*)'This is a test.' call sub(a,10) write(*,*) a stop end subroutine sub(a,n) dimension a(n) do 100 i=1, n a(i)=i 100 continue return end array_element.exp ===================================== # Copyright 2005 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # This file is part of the gdb testsuite. if $tracelevel then { strace $tracelevel } # # test running programs # set prms_id 0 set bug_id 0 set testfile "array_element" set srcfile ${testfile}.f set binfile ${objdir}/${subdir}/${testfile} if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77}] != "" } { gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." } if [get_compiler_info ${binfile} "f77"] { return -1 } gdb_exit gdb_start gdb_reinitialize_dir $srcdir/$subdir gdb_load ${binfile} if ![runto sub_] then { perror "couldn't run to breakpoint" continue } set bp_location [gdb_get_line_number "continue"] gdb_test "break $bp_location" \ "Breakpoint.*at.* file .*$srcfile, line $bp_location\\." \ "brealpoint at continue" gdb_test "continue" \ "Continuing\\..*Breakpoint.*" \ "continue to breakpoint" gdb_test "print a(1)" "= 1.*" "print the first element of array a" gdb_test "continue" \ "Continuing\\..*Breakpoint.*" \ "continue to breakpoint once again" gdb_test "print a(2)" "= 2.*" "print the first element of array a" gdb_exit return 0 Cheers - Wu Zhou