From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from simark.ca by simark.ca with LMTP id u07kAhcS+GB5NAAAWB0awg (envelope-from ) for ; Wed, 21 Jul 2021 08:24:55 -0400 Received: by simark.ca (Postfix, from userid 112) id EFB021EDFB; Wed, 21 Jul 2021 08:24:54 -0400 (EDT) X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on simark.ca X-Spam-Level: X-Spam-Status: No, score=-0.5 required=5.0 tests=DKIM_SIGNED, MAILING_LIST_MULTI,RDNS_DYNAMIC,T_DKIM_INVALID,URIBL_BLOCKED autolearn=ham autolearn_force=no version=3.4.2 Received: from sourceware.org (ip-8-43-85-97.sourceware.org [8.43.85.97]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest SHA256) (No client certificate requested) by simark.ca (Postfix) with ESMTPS id D1C171EDF5 for ; Wed, 21 Jul 2021 08:24:53 -0400 (EDT) Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 1FB993950E52 for ; Wed, 21 Jul 2021 12:24:53 +0000 (GMT) Received: from smtp-out1.suse.de (smtp-out1.suse.de [195.135.220.28]) by sourceware.org (Postfix) with ESMTPS id 81BBA3899026 for ; Wed, 21 Jul 2021 12:24:13 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 81BBA3899026 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=suse.de Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=suse.de Received: from imap2.suse-dmz.suse.de (imap2.suse-dmz.suse.de [192.168.254.74]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature ECDSA (P-521) server-digest SHA512) (No client certificate requested) by smtp-out1.suse.de (Postfix) with ESMTPS id B911C224F8; Wed, 21 Jul 2021 12:24:12 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=suse.de; s=susede2_rsa; t=1626870252; h=from:from:reply-to:date:date:message-id:message-id:to:to:cc:cc: mime-version:mime-version:content-type:content-type; bh=zepo5I0QdOWSQzHu8SSKsbN8wMpkqjvDPksPA0PCZNQ=; b=VW7tltfqHAheqrTW2YpJ+zCXx1r8iM6AkYNo7q7wEfjmb5XWw0kQ/kQeFyE7epYupZm60E SDkUkjanG6gk7WHwkGcgMK5GLQDgThO6iVvpMRGD8cn2A/lZG0KzDcxcXbIRPZ8ukQQKGI U3Tp50CwLr8IUt+nZrqSU2YRcnC0B6c= DKIM-Signature: v=1; a=ed25519-sha256; c=relaxed/relaxed; d=suse.de; s=susede2_ed25519; t=1626870252; h=from:from:reply-to:date:date:message-id:message-id:to:to:cc:cc: mime-version:mime-version:content-type:content-type; bh=zepo5I0QdOWSQzHu8SSKsbN8wMpkqjvDPksPA0PCZNQ=; b=BDkSix2QJycRXnDpAJE894zVcvH3EHaAwJu4Knsfsjc1Ab+hpRU/kdqsiL4Z9xudmepBky wme8v55rg7kEMeAw== Received: from imap2.suse-dmz.suse.de (imap2.suse-dmz.suse.de [192.168.254.74]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature ECDSA (P-521) server-digest SHA512) (No client certificate requested) by imap2.suse-dmz.suse.de (Postfix) with ESMTPS id 9216D13B39; Wed, 21 Jul 2021 12:24:12 +0000 (UTC) Received: from dovecot-director2.suse.de ([192.168.254.65]) by imap2.suse-dmz.suse.de with ESMTPSA id XavVIewR+GBbUgAAMHmgww (envelope-from ); Wed, 21 Jul 2021 12:24:12 +0000 Date: Wed, 21 Jul 2021 14:24:11 +0200 From: Tom de Vries To: gdb-patches@sourceware.org Subject: [committed][gdb/testsuite] Add KFAILs for gdb.ada FAILs with gcc-11 Message-ID: <20210721122407.GA27514@delia.home> MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline User-Agent: Mutt/1.10.1 (2018-07-13) X-BeenThere: gdb-patches@sourceware.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gdb-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Cc: Tom Tromey Errors-To: gdb-patches-bounces+public-inbox=simark.ca@sourceware.org Sender: "Gdb-patches" Hi, With gcc-11 we run into: ... (gdb) print pa_ptr.all^M That operation is not available on integers of more than 8 bytes.^M (gdb) KFAIL: gdb.ada/arrayptr.exp: scenario=all: print pa_ptr.all (PRMS: gdb/20991) ... This is due to PR exp/20991 - "__int128 type support". Mark this and similar FAILs as KFAIL. Also mark this FAIL: .... (gdb) print pa_ptr(3)^M cannot subscript or call something of type `foo__packed_array_ptr'^M (gdb) FAIL: gdb.ada/arrayptr.exp: scenario=minimal: print pa_ptr(3) ... as a KFAIL for PR ada/28115 - "Support packed array encoded as DW_TAG_subrange_type". Tested on x86_64-linux, with gcc-10 and gcc-11. Committed to trunk and gdb-11-branch. Thanks, - Tom [gdb/testsuite] Add KFAILs for gdb.ada FAILs with gcc-11 gdb/testsuite/ChangeLog: 2021-07-21 Tom de Vries * gdb.ada/arrayptr.exp: Add KFAILs for PR20991 and PR28115. * gdb.ada/exprs.exp: Add KFAILs for PR20991. * gdb.ada/packed_array_assign.exp: Same. --- gdb/testsuite/gdb.ada/arrayptr.exp | 36 +++++++++++-- gdb/testsuite/gdb.ada/exprs.exp | 38 ++++++++++---- gdb/testsuite/gdb.ada/packed_array_assign.exp | 75 +++++++++++++++++++++++---- 3 files changed, 127 insertions(+), 22 deletions(-) diff --git a/gdb/testsuite/gdb.ada/arrayptr.exp b/gdb/testsuite/gdb.ada/arrayptr.exp index 515e21242a2..606794909d9 100644 --- a/gdb/testsuite/gdb.ada/arrayptr.exp +++ b/gdb/testsuite/gdb.ada/arrayptr.exp @@ -49,10 +49,38 @@ foreach_with_prefix scenario {all minimal} { gdb_test "ptype string_access" "= access array \\(<>\\) of character" - gdb_test "print pa_ptr.all" \ - " = \\(10, 20, 30, 40, 50, 60, 62, 63, -23, 42\\)" + set kfail_int128support_re \ + "That operation is not available on integers of more than 8 bytes\\." + set kfail_packed_array_range_re \ + "cannot subscript or call something of type `foo__packed_array_ptr'" + + gdb_test_multiple "print pa_ptr.all" "" { + -re -wrap " = \\(10, 20, 30, 40, 50, 60, 62, 63, -23, 42\\)" { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } + } - gdb_test "print pa_ptr(3)" " = 30" + gdb_test_multiple "print pa_ptr(3)" "" { + -re -wrap " = 30" { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } + -re -wrap $kfail_packed_array_range_re { + kfail gdb/28115 $gdb_test_name + } + } - gdb_test "print pa_ptr.all(3)" " = 30" + gdb_test_multiple "print pa_ptr.all(3)" "" { + -re -wrap " = 30" { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } + } } diff --git a/gdb/testsuite/gdb.ada/exprs.exp b/gdb/testsuite/gdb.ada/exprs.exp index 8139abf5dcf..480e5e9f971 100644 --- a/gdb/testsuite/gdb.ada/exprs.exp +++ b/gdb/testsuite/gdb.ada/exprs.exp @@ -28,14 +28,34 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/p.adb] runto "p.adb:$bp_location" -gdb_test "print X ** Y = Z" \ - "= true" \ - "Long_Long_Integer ** Y" +set kfail_int128support_re \ + "That operation is not available on integers of more than 8 bytes\\." + +gdb_test_multiple "print X ** Y = Z" "Long_Long_Integer ** Y" { + -re -wrap "= true" { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } +} -gdb_test "print long_float'min (long_float (X), 8.0)" \ - "= 7.0" \ - "long_float'min" +set cmd "print long_float'min (long_float (X), 8.0)" +gdb_test_multiple $cmd "long_float'min" { + -re -wrap "= 7.0" { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } +} -gdb_test "print long_float'max (long_float (X), 8.0)" \ - "= 8.0" \ - "long_float'max" +set cmd "print long_float'max (long_float (X), 8.0)" +gdb_test_multiple $cmd "long_float'max" { + -re -wrap "= 8.0" { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } +} diff --git a/gdb/testsuite/gdb.ada/packed_array_assign.exp b/gdb/testsuite/gdb.ada/packed_array_assign.exp index b6c8cf673de..5f34a07e3af 100644 --- a/gdb/testsuite/gdb.ada/packed_array_assign.exp +++ b/gdb/testsuite/gdb.ada/packed_array_assign.exp @@ -27,15 +27,72 @@ clean_restart ${testfile} runto "aggregates.run_test" -gdb_test \ - "print pra := ((packed_array_assign_x => 2, packed_array_assign_y => 0, packed_array_assign_w => 17), pr, (packed_array_assign_x => 7, packed_array_assign_y => 1, packed_array_assign_w => 23))" \ - " = \\(\\(packed_array_assign_w => 17, packed_array_assign_x => 2, packed_array_assign_y => 0\\), \\(packed_array_assign_w => 104, packed_array_assign_x => 2, packed_array_assign_y => 3\\), \\(packed_array_assign_w => 23, packed_array_assign_x => 7, packed_array_assign_y => 1\\)\\)" \ - "value of pra" - -gdb_test "print pra(1) := pr" \ - " = \\(packed_array_assign_w => 104, packed_array_assign_x => 2, packed_array_assign_y => 3\\)" -gdb_test "print pra(1)" \ - " = \\(packed_array_assign_w => 104, packed_array_assign_x => 2, packed_array_assign_y => 3\\)" +set kfail_int128support_re \ + "That operation is not available on integers of more than 8 bytes\\." + +set cmd \ + [list \ + "print pra := " \ + "((packed_array_assign_x => 2," \ + "packed_array_assign_y => 0," \ + "packed_array_assign_w => 17)," \ + "pr," \ + "(packed_array_assign_x => 7," \ + "packed_array_assign_y => 1," \ + "packed_array_assign_w => 23))"] +set cmd [join $cmd] +set re \ + [list \ + " = \\(\\(packed_array_assign_w => 17," \ + "packed_array_assign_x => 2," \ + "packed_array_assign_y => 0\\)," \ + "\\(packed_array_assign_w => 104," \ + "packed_array_assign_x => 2," \ + "packed_array_assign_y => 3\\)," \ + "\\(packed_array_assign_w => 23," \ + "packed_array_assign_x => 7," \ + "packed_array_assign_y => 1\\)\\)"] +set re [join $re] +gdb_test_multiple $cmd "value of pra" { + -re -wrap $re { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } +} + +set cmd "print pra(1) := pr" +set re \ + [list \ + " = \\(packed_array_assign_w => 104," \ + "packed_array_assign_x => 2," \ + "packed_array_assign_y => 3\\)"] +set re [join $re] +gdb_test_multiple $cmd "" { + -re -wrap $re { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } +} + +set cmd "print pra(1)" +set re \ + [list \ + " = \\(packed_array_assign_w => 104," \ + "packed_array_assign_x => 2," \ + "packed_array_assign_y => 3\\)"] +set re [join $re] +gdb_test_multiple $cmd "" { + -re -wrap $re { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } +} gdb_test "print npr := (q000 => 3, r000 => (packed_array_assign_x => 6, packed_array_assign_y => 1, packed_array_assign_w => 117))" \ " = \\(q000 => 3, r000 => \\(packed_array_assign_w => 117, packed_array_assign_x => 6, packed_array_assign_y => 1\\)\\)" \