public inbox for gdb-cvs@sourceware.org help / color / mirror / Atom feed
From: Nils-Christian Kempke <nckempke@sourceware.org> To: gdb-cvs@sourceware.org Subject: [binutils-gdb] testsuite, fortran: add compiler dependent types to dynamic-ptype-whatis Date: Tue, 31 May 2022 14:45:53 +0000 (GMT) [thread overview] Message-ID: <20220531144553.EFC9D395A025@sourceware.org> (raw) https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=15868bc88317eac5c8995d3208f939a79d352561 commit 15868bc88317eac5c8995d3208f939a79d352561 Author: Nils-Christian Kempke <nils-christian.kempke@intel.com> Date: Tue May 31 16:43:44 2022 +0200 testsuite, fortran: add compiler dependent types to dynamic-ptype-whatis The test was earlier not using the compiler dependent type print system in fortran.exp. I changed this. It should generally improve the test performance for different compilers. For ifx and gfortran I do not see any failures. Diff: --- gdb/testsuite/gdb.fortran/dynamic-ptype-whatis.exp | 79 +++++++++++----------- 1 file changed, 41 insertions(+), 38 deletions(-) diff --git a/gdb/testsuite/gdb.fortran/dynamic-ptype-whatis.exp b/gdb/testsuite/gdb.fortran/dynamic-ptype-whatis.exp index 7367b1d46b8..f0463f4f62b 100644 --- a/gdb/testsuite/gdb.fortran/dynamic-ptype-whatis.exp +++ b/gdb/testsuite/gdb.fortran/dynamic-ptype-whatis.exp @@ -34,62 +34,65 @@ if {![fortran_runto_main]} { gdb_breakpoint [gdb_get_line_number "Break Here"] gdb_continue_to_breakpoint "Break Here" -gdb_test "whatis var1" "type = real\\(kind=4\\) \\(3\\)" -gdb_test "whatis var2" "type = real\\(kind=4\\), allocatable \\(4\\)" +set real4 [fortran_real4] +set int4 [fortran_int4] + +gdb_test "whatis var1" "type = ${real4} \\(3\\)" +gdb_test "whatis var2" "type = ${real4}, allocatable \\(4\\)" gdb_test "whatis var3" "type = Type type1" gdb_test "whatis var4" "type = Type type2" gdb_test "whatis var5" "type = Type type3" gdb_test "whatis var6" "type = Type type4" gdb_test "whatis var7" "type = Type type5" -gdb_test "ptype var1" "type = real\\(kind=4\\) \\(3\\)" -gdb_test "ptype var2" "type = real\\(kind=4\\), allocatable \\(4\\)" +gdb_test "ptype var1" "type = ${real4} \\(3\\)" +gdb_test "ptype var2" "type = ${real4}, allocatable \\(4\\)" gdb_test "ptype var3" \ [ multi_line "type = Type type1" \ - " integer\\(kind=4\\) :: spacer" \ - " integer\\(kind=4\\) :: t1_i" \ + " ${int4} :: spacer" \ + " ${int4} :: t1_i" \ "End Type type1" ] gdb_test "ptype var4" \ [multi_line "type = Type type2" \ - " integer\\(kind=4\\) :: spacer" \ + " ${int4} :: spacer" \ " Type type1, allocatable :: t2_array\\(3\\)" \ "End Type type2"] gdb_test "ptype var5" \ [ multi_line "type = Type type3" \ - " integer\\(kind=4\\) :: spacer" \ + " ${int4} :: spacer" \ " Type type1 :: t3_array\\(3\\)"\ "End Type type3" ] gdb_test "ptype var6" \ [ multi_line "type = Type type4" \ - " integer\\(kind=4\\) :: spacer" \ + " ${int4} :: spacer" \ " Type type2, allocatable :: t4_array\\(3\\)" \ "End Type type4" ] gdb_test "ptype var7" \ [ multi_line "type = Type type5" \ - " integer\\(kind=4\\) :: spacer" \ + " ${int4} :: spacer" \ " Type type2 :: t5_array\\(4\\)" \ "End Type type5" ] -gdb_test "whatis var3%t1_i" "type = integer\\(kind=4\\)" +gdb_test "whatis var3%t1_i" "type = ${int4}" gdb_test "whatis var4%t2_array" "type = Type type1, allocatable \\(3\\)" gdb_test "whatis var5%t3_array" "type = Type type1 \\(3\\)" gdb_test "whatis var6%t4_array" "type = Type type2, allocatable \\(3\\)" gdb_test "whatis var7%t5_array" "type = Type type2 \\(4\\)" -gdb_test "ptype var3%t1_i" "type = integer\\(kind=4\\)" +gdb_test "ptype var3%t1_i" "type = ${int4}" gdb_test "ptype var4%t2_array" [ multi_line "type = Type type1" \ - " integer\\(kind=4\\) :: spacer" \ - " integer\\(kind=4\\) :: t1_i" \ + " ${int4} :: spacer" \ + " ${int4} :: t1_i" \ "End Type type1, allocatable \\(3\\)" ] gdb_test "ptype var5%t3_array" [ multi_line "type = Type type1" \ - " integer\\(kind=4\\) :: spacer" \ - " integer\\(kind=4\\) :: t1_i" \ + " ${int4} :: spacer" \ + " ${int4} :: t1_i" \ "End Type type1 \\(3\\)" ] gdb_test "ptype var6%t4_array" \ [ multi_line "type = Type type2" \ - " integer\\(kind=4\\) :: spacer" \ + " ${int4} :: spacer" \ " Type type1, allocatable :: t2_array\\(:\\)" \ "End Type type2, allocatable \\(3\\)" ] gdb_test "ptype var7%t5_array" \ [ multi_line "type = Type type2" \ - " integer\\(kind=4\\) :: spacer" \ + " ${int4} :: spacer" \ " Type type1, allocatable :: t2_array\\(:\\)" \ "End Type type2 \\(4\\)" ] gdb_test "whatis var4%t2_array(1)" "type = Type type1" @@ -98,41 +101,41 @@ gdb_test "whatis var6%t4_array(1)" "type = Type type2" gdb_test "whatis var7%t5_array(1)" "type = Type type2" gdb_test "ptype var4%t2_array(1)" \ [ multi_line "type = Type type1" \ - " integer\\(kind=4\\) :: spacer" \ - " integer\\(kind=4\\) :: t1_i" \ + " ${int4} :: spacer" \ + " ${int4} :: t1_i" \ "End Type type1" ] gdb_test "ptype var5%t3_array(1)" \ [ multi_line "type = Type type1" \ - " integer\\(kind=4\\) :: spacer" \ - " integer\\(kind=4\\) :: t1_i" \ + " ${int4} :: spacer" \ + " ${int4} :: t1_i" \ "End Type type1" ] gdb_test "ptype var6%t4_array(1)" \ [ multi_line "type = Type type2" \ - " integer\\(kind=4\\) :: spacer" \ + " ${int4} :: spacer" \ " Type type1, allocatable :: t2_array\\(2\\)" \ "End Type type2" ] gdb_test "ptype var7%t5_array(1)" \ [ multi_line "type = Type type2" \ - " integer\\(kind=4\\) :: spacer" \ + " ${int4} :: spacer" \ " Type type1, allocatable :: t2_array\\(2\\)" \ "End Type type2" ] -gdb_test "whatis var4%t2_array(1)%t1_i" "type = integer\\(kind=4\\)" -gdb_test "whatis var5%t3_array(1)%t1_i" "type = integer\\(kind=4\\)" +gdb_test "whatis var4%t2_array(1)%t1_i" "type = ${int4}" +gdb_test "whatis var5%t3_array(1)%t1_i" "type = ${int4}" gdb_test "whatis var6%t4_array(1)%t2_array" \ "type = Type type1, allocatable \\(2\\)" gdb_test "whatis var7%t5_array(1)%t2_array" \ "type = Type type1, allocatable \\(2\\)" -gdb_test "ptype var4%t2_array(1)%t1_i" "type = integer\\(kind=4\\)" -gdb_test "ptype var5%t3_array(1)%t1_i" "type = integer\\(kind=4\\)" +gdb_test "ptype var4%t2_array(1)%t1_i" "type = ${int4}" +gdb_test "ptype var5%t3_array(1)%t1_i" "type = ${int4}" gdb_test "ptype var6%t4_array(1)%t2_array" \ [ multi_line "type = Type type1" \ - " integer\\(kind=4\\) :: spacer" \ - " integer\\(kind=4\\) :: t1_i" \ + " ${int4} :: spacer" \ + " ${int4} :: t1_i" \ "End Type type1, allocatable \\(2\\)" ] gdb_test "ptype var7%t5_array(1)%t2_array" \ [ multi_line "type = Type type1" \ - " integer\\(kind=4\\) :: spacer" \ - " integer\\(kind=4\\) :: t1_i" \ + " ${int4} :: spacer" \ + " ${int4} :: t1_i" \ "End Type type1, allocatable \\(2\\)" ] gdb_test "whatis var6%t4_array(1)%t2_array(1)" \ "type = Type type1" @@ -141,18 +144,18 @@ gdb_test "whatis var7%t5_array(1)%t2_array(1)" \ gdb_test "ptype var6%t4_array(1)%t2_array(1)" \ [ multi_line \ "type = Type type1" \ - " integer\\(kind=4\\) :: spacer" \ - " integer\\(kind=4\\) :: t1_i" \ + " ${int4} :: spacer" \ + " ${int4} :: t1_i" \ "End Type type1" ] gdb_test "ptype var7%t5_array(1)%t2_array(1)" \ [ multi_line \ "type = Type type1" \ - " integer\\(kind=4\\) :: spacer" \ - " integer\\(kind=4\\) :: t1_i" \ + " ${int4} :: spacer" \ + " ${int4} :: t1_i" \ "End Type type1" ] gdb_test "ptype var8%ptr_1%t2_array" \ [ multi_line \ "type = Type type1" \ - " integer\\(kind=4\\) :: spacer" \ - " integer\\(kind=4\\) :: t1_i" \ + " ${int4} :: spacer" \ + " ${int4} :: t1_i" \ "End Type type1, allocatable \\(3\\)" ]
reply other threads:[~2022-05-31 14:45 UTC|newest] Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions: You may reply publicly to this message via plain-text email using any one of the following methods: * Save the following mbox file, import it into your mail client, and reply-to-all from there: mbox Avoid top-posting and favor interleaved quoting: https://en.wikipedia.org/wiki/Posting_style#Interleaved_style * Reply using the --to, --cc, and --in-reply-to switches of git-send-email(1): git send-email \ --in-reply-to=20220531144553.EFC9D395A025@sourceware.org \ --to=nckempke@sourceware.org \ --cc=gdb-cvs@sourceware.org \ /path/to/YOUR_REPLY https://kernel.org/pub/software/scm/git/docs/git-send-email.html * If your mail client supports setting the In-Reply-To header via mailto: links, try the mailto: linkBe sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).