From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from NAM02-BN1-obe.outbound.protection.outlook.com (mail-bn1nam07on2082.outbound.protection.outlook.com [40.107.212.82]) by sourceware.org (Postfix) with ESMTPS id 9E13B3851C18 for ; Mon, 21 Jun 2021 14:26:34 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 9E13B3851C18 ARC-Seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=ogpqBXbE9jFxxyFTbZ8gcQsZuhMPLAX+SvgwN/KOibptmhLdObHK3K4/k2W0tIPyUFVQNMct2wCNZi9j8nYYiZ04EI+Dm6xNymAixyS9gIPtfPbJpxKX65Mcc5v6I9oCIbbH+cF3iR+0Jp/vgQBM+knEshyOvptovzFn4fIuVwLvYCByZPIgoswp+UJlUTipeUemDijroOAOLcQlCwWqzdPtJymvYAPzueh+HK+b5PuR76UCA65xESTDkjjRJ2KwHS/gijpF96nbWujtVzWhjfIpHSdPOzMO8iI5cU5aryEhYUBD2XrfwVRwJwdlTTgFSbAJefXQQn6UjpoM2oaDjw== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=microsoft.com; s=arcselector9901; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=G1esLM0AwZAHwzRA9iBTCResakHCCGxzJdux/cDVgR4=; b=iQN8drVDogpwJoz1D43EzG9IyiXt2hOouTrzRqLywxTXcrI7osFgLjpR2eseuBWRUOY5Z+VwN7jUbmtiUjzalmXrvKzsRzIl+XKIucK9EX7J1z3goZZpUoWiGhUupPN11cF86JC7zrhOA4Kp0M8Cv0WUiRs1TUhV1rrMVIbMKHaLpO74xnIL0hEj9nDiX0WenzP7a2ZqXYL2gSCxbBv7uoqO1peOsOCSDnNC5GdwW1ocDwG9Q3i66JM8i0GFZB3WatWAe7qpKCfoAhdvlj+OQeWjDmeajjG2j0TVk2UDdaYlaEp8MCGMWsTOeVfa+NYI1OCQQ/mkse+C4fySRX7s7w== ARC-Authentication-Results: i=1; mx.microsoft.com 1; spf=pass smtp.mailfrom=amd.com; dmarc=pass action=none header.from=amd.com; dkim=pass header.d=amd.com; arc=none Received: from DM5PR12MB1450.namprd12.prod.outlook.com (2603:10b6:4:3::8) by DM5PR1201MB2472.namprd12.prod.outlook.com (2603:10b6:3:e1::23) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.4242.21; Mon, 21 Jun 2021 14:26:33 +0000 Received: from DM5PR12MB1450.namprd12.prod.outlook.com ([fe80::912d:a004:9ca:6400]) by DM5PR12MB1450.namprd12.prod.outlook.com ([fe80::912d:a004:9ca:6400%7]) with mapi id 15.20.4242.023; Mon, 21 Jun 2021 14:26:32 +0000 From: "Kumar N, Bhuvanendra" To: Andrew Burgess CC: "gdb-patches@sourceware.org" , "George, Jini Susan" , "Achra, Nitika" , "Sharma, Alok Kumar" , "E, Nagajyothi" , "Tomar, Sourabh Singh" Subject: RE: [PATCH] [gdb.fortran] Add type info of formal parameter for clang in ptype-on-functions.exp Thread-Topic: [PATCH] [gdb.fortran] Add type info of formal parameter for clang in ptype-on-functions.exp Thread-Index: AdcyPDXeC4RtPt4qTd6+wyp+UgCGDwEjP2SAAByUXiABmJqIoAAHF44AAIsBo1AEh6CH8AFjtdmAAaD6S2ACJGIKAAAACQBw Date: Mon, 21 Jun 2021 14:26:32 +0000 Message-ID: References: <20210421161301.GK2610@embecosm.com> <20210430121400.GG2364578@embecosm.com> <20210602094301.GK2672@embecosm.com> <20210621142418.GE2568@embecosm.com> In-Reply-To: <20210621142418.GE2568@embecosm.com> Accept-Language: en-US Content-Language: en-US X-MS-Has-Attach: X-MS-TNEF-Correlator: msip_labels: MSIP_Label_88914ebd-7e6c-4e12-a031-a9906be2db14_Enabled=true; MSIP_Label_88914ebd-7e6c-4e12-a031-a9906be2db14_SetDate=2021-06-21T14:26:27Z; MSIP_Label_88914ebd-7e6c-4e12-a031-a9906be2db14_Method=Standard; MSIP_Label_88914ebd-7e6c-4e12-a031-a9906be2db14_Name=AMD Official Use Only-AIP 2.0; MSIP_Label_88914ebd-7e6c-4e12-a031-a9906be2db14_SiteId=3dd8961f-e488-4e60-8e11-a82d994e183d; MSIP_Label_88914ebd-7e6c-4e12-a031-a9906be2db14_ActionId=d8ca853f-704c-41d5-a0b7-4d5a07b06b79; MSIP_Label_88914ebd-7e6c-4e12-a031-a9906be2db14_ContentBits=1 x-originating-ip: [117.198.117.141] x-ms-publictraffictype: Email x-ms-office365-filtering-correlation-id: 13a8aa40-f703-4d8f-8b73-08d934c09159 x-ms-traffictypediagnostic: DM5PR1201MB2472: x-ms-exchange-transport-forked: True x-microsoft-antispam-prvs: x-ms-oob-tlc-oobclassifiers: OLM:10000; x-ms-exchange-senderadcheck: 1 x-microsoft-antispam: BCL:0; x-microsoft-antispam-message-info: hMWBEHi2e5NvXxTfsvXPW3TpXXwFtX5+BncQpsROdSz6iX+7U2gkXzN07QwGk/FdQgdLUoBwHfL+Zz1CnnQCDjaYu22Gku+174TG06FK3iseg1vbs4QCYcC7eCk5PdlO3jHURlsqK4zjpaIwrH0Tr4Xvfie9c0HKrKHl7V+JO7tNaNJTCh8UsvvyeRSY/UmACODnYlSkCWSvAuKOfZh5ZaJcSUHA0Nzr1rBLy4b2PwmKBe+RrZkFhwg0SH7S5y9nH1OHmUK/5e6XmPIt1k1oX4itjmRHBDbzJiY5BSrVlDtCK1ox3iQvkNghrlVS5NL/1fAHO3urccv1azMUyJa1fG+rMqk9bPGgd2OhaIPvK2O7v7RfApqjDLVlm9mmxrmMqNvriy+4NEyKDXTXnhISsaxNd1ccnYWCYkBtdLl4JzgeAcmxOWPfGV76hSQRAdbu11L2YB9Eh3bTHoz7dyS5CNbyB6VlpLf3Q7psjsWHgEA4VdFWvmHPVACCATUp2a4CXG8nvknsbS4jUJh3C/mzXgwnqf9OVz8zTQBT54mC9Mbx4jhjK3wXLFYKK+OmzjXp4CsbcWKQ7Ilc32MKLoQqqBemDxVEe5+3iHWnqAZUh7s= x-forefront-antispam-report: CIP:255.255.255.255; CTRY:; LANG:en; SCL:1; SRV:; IPV:NLI; SFV:NSPM; H:DM5PR12MB1450.namprd12.prod.outlook.com; PTR:; CAT:NONE; SFS:(4636009)(366004)(396003)(136003)(39860400002)(346002)(376002)(26005)(9686003)(38100700002)(5660300002)(6506007)(76116006)(478600001)(53546011)(83380400001)(186003)(66946007)(64756008)(66446008)(55016002)(122000001)(66476007)(66556008)(7696005)(2906002)(55236004)(52536014)(54906003)(33656002)(8936002)(8676002)(4326008)(71200400001)(316002)(6916009)(86362001); DIR:OUT; SFP:1101; x-ms-exchange-antispam-messagedata-chunkcount: 1 x-ms-exchange-antispam-messagedata-0: =?us-ascii?Q?QRV16s/vJBLrHy2G8sNXYhdjwKLL8Wbm6UxC7aa5HXCsC7kz27HcJlZw5YbZ?= =?us-ascii?Q?4WNQBM2B5gZ+tKBHnnvvD1LfMrWDHT9xUUSxBpYteO7/5kci9JdQIyBQKcqx?= =?us-ascii?Q?Lh0AeNxK2daLLfkMi3Un6f5bV8T0Pn1qDn0CNvfitctdsCeC5KbtX57sQH+f?= =?us-ascii?Q?6MEG0wbd0UOPoefyuknBk8K6674PRX1fJo2uCca79V2iBNfSyZOpaJvjvtMZ?= =?us-ascii?Q?57Unu3TBVMxs4Sj8uZjjxPpjcBoj3ssKWTzPybc0AiYpw9pM3YY18s2WxfRa?= =?us-ascii?Q?2lvcCA+eXE31lUUj6cfLakv2bExKWzq8irpX4gGL2GmkikCtKLEuta/srrim?= =?us-ascii?Q?CQKJ6X5+N+Js7tmyx/2rr/jAp8ZwkmaKZe0gQpOJPeWsEgZOU9qhO2svPIK1?= =?us-ascii?Q?0BS1ICgUUljOU73TCq0xfqDN5l6N7V2shqeFvtpBirTa9ANxm9+rfFsTQ/0J?= =?us-ascii?Q?41/zdJnVoiWirLRLo76MjVYMRV0N+ViuoRHpTTMc0bnhHVePRDOzWyZfKWpf?= =?us-ascii?Q?zm8Xpgsf33OGA+ejRHImpLdavo7fLI7Kc6DaVdycOacPzcIzAV3ECHz6Z//w?= =?us-ascii?Q?jvPyiGSauNfDRrkIrInMyopf18M2cluA4KFFxaAznSgDYSeh+YGHqt0fvsec?= =?us-ascii?Q?VNRRDNe/NkvIJKN7+TNuqXupeWXaMQhGyhtVrLNW30ecANBego40QYfwj772?= =?us-ascii?Q?lFyfIE1HQvVaDJE6K1tmML4vhq3HZF/MldkjBeqJYxbkR4d11bB0IBNgx5sO?= =?us-ascii?Q?/z3vBmRYuAfbv78ndAov/EN5nJXY/Oehy/yAGhDsm3VHAdKl6Dw7euqu5A7B?= =?us-ascii?Q?Qd60zDaVxsM5owQxge9Gk+4+pb3oRPQML7TJ3QwcpTj/cPJHA7U8Gg8nr3y9?= =?us-ascii?Q?SddKT5k2jO6lu45qlMyhhMwhEpxv5/YW8JCeF6xvsy45KsCHIEFokI4sqv4m?= =?us-ascii?Q?cdrL8vyhFpz9nETavcnECIFH+FudeaIjejnf8UvrannQ595dBME2+x+tDMb1?= =?us-ascii?Q?tGcwEDH4hfRcXu9xSP72ySV6CPRysUkP8v8+At5hrlRsn1qOZ5Ugvl2EETxe?= =?us-ascii?Q?+/gR3/QuOFygAqYpwROy6i/3cov3HSdrzaBFpguI5y07XlSsCp9YRw5Gg/6A?= =?us-ascii?Q?P6ejDCg2W+LTHqFzUvFEFSHJr52uZ8562UrCf7L2QHOdKFCyS8FM2vS5IWLj?= =?us-ascii?Q?AVIBVMsrEYL6vTgFQdYLTpH2dZhxTEJIotBpJyjmJvO+DMvT0jzsF2mann+L?= =?us-ascii?Q?tZRxvhmT6uHAGeoa5uGLzYCeujwvZcRl3KuRSqZNpnTqH0LVpR3fXlo+e24M?= =?us-ascii?Q?9G077Z7ChWkIgNoo3t5CmuRs?= Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-OriginatorOrg: amd.com X-MS-Exchange-CrossTenant-AuthAs: Internal X-MS-Exchange-CrossTenant-AuthSource: DM5PR12MB1450.namprd12.prod.outlook.com X-MS-Exchange-CrossTenant-Network-Message-Id: 13a8aa40-f703-4d8f-8b73-08d934c09159 X-MS-Exchange-CrossTenant-originalarrivaltime: 21 Jun 2021 14:26:32.3557 (UTC) X-MS-Exchange-CrossTenant-fromentityheader: Hosted X-MS-Exchange-CrossTenant-id: 3dd8961f-e488-4e60-8e11-a82d994e183d X-MS-Exchange-CrossTenant-mailboxtype: HOSTED X-MS-Exchange-CrossTenant-userprincipalname: 4hBVqEu/7UUbHnUf/87spE9JqXXd3Wv9RlCmm5bI7RL6lB3leQz36f52ddr9rfoqgLmuA3eOmy9+hl+U60IBvQ== X-MS-Exchange-Transport-CrossTenantHeadersStamped: DM5PR1201MB2472 X-Spam-Status: No, score=-10.6 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, GIT_PATCH_0, RCVD_IN_BARRACUDACENTRAL, RCVD_IN_DNSWL_NONE, RCVD_IN_MSPIKE_H2, SPF_HELO_PASS, SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.2 X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on server2.sourceware.org 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: , X-List-Received-Date: Mon, 21 Jun 2021 14:26:37 -0000 [AMD Official Use Only] Thanks Andrew. Actually its your patch only, I just modified little. Will p= roceed. regards, bhuvan -----Original Message----- From: Andrew Burgess =20 Sent: Monday, June 21, 2021 7:54 PM To: Kumar N, Bhuvanendra Cc: gdb-patches@sourceware.org; George, Jini Susan ; Achra, Nitika ; Sharma, Alok Kumar ; E, Nagajyothi ; Tomar, Sourabh Singh Subject: Re: [PATCH] [gdb.fortran] Add type info of formal parameter for cl= ang in ptype-on-functions.exp [CAUTION: External Email] * Kumar N, Bhuvanendra [2021-06-10 16:52:01 +0= 000]: > [AMD Official Use Only - Internal Distribution Only] > > Hi Andrew, > > > Would you be willing to take this commit and see if you can finish this= off so that it meets your needs? > > Your earlier GDB test patch works fine with clang/flang compiler, hence r= emoved 3 instances of setup_kfail from your patch and tested with flang and= it worked fine. Hence I am attaching the modified final patch for review, = could you please review/approve? Thanks in advance. > > I have attached the revised patch with this email and also inlined it her= e. > > Patch inlined: > > From 0075cc40ad1f69ff983fdf848a1b497fe3aaf778 Mon Sep 17 00:00:00 2001 > From: =3D?UTF-8?q?=3DE2=3D80=3D9Cbhkumarn=3DE2=3D80=3D9D?=3D=20 > > Date: Thu, 10 Jun 2021 21:48:11 +0530 > Subject: [PATCH] [gdb.fortran] Add type info of formal parameter for =20 > clang. > > Additional compiler generated formal parameter exist with clang and=20 > type information for the same is added accordingly. Also few kind=20 > parameter printing are removed which is not default for clang. > Note: More details about this kind parameter omission while printing=20 > can be found with similar patch > commit 0a709cba00d36d490482d0e8673e323ac1e897a6 > Author Alok Kumar Sharma (alokkumar.sharma@amd.com) > > gdb/testsuite/ChangeLog: > * gdb.fortran/ptype-on-functions.exp: Add type info of formal > parameter for clang. Also removed the kind parameter for clang. This looks great. Thanks for all your work on this. Feel free to commit. Thanks, Andrew > --- > gdb/testsuite/ChangeLog | 5 +++ > .../gdb.fortran/ptype-on-functions.exp | 36 +++++++++++++++---- > 2 files changed, 34 insertions(+), 7 deletions(-) > > diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index=20 > 65517eacd99..87cf3e2a061 100644 > --- a/gdb/testsuite/ChangeLog > +++ b/gdb/testsuite/ChangeLog > @@ -1,3 +1,8 @@ > +2021-06-10 Bhuvanendra Kumar N > + > + * gdb.fortran/ptype-on-functions.exp: Add type info of formal > + parameter for clang. Also removed the kind parameter for clang. > + > 2021-06-10 Bhuvanendra Kumar N > > * gdb.base/foll-exec.c: convert the multi-line function call=20 > into diff --git a/gdb/testsuite/gdb.fortran/ptype-on-functions.exp=20 > b/gdb/testsuite/gdb.fortran/ptype-on-functions.exp > index 14f522d6d42..75197952b6f 100644 > --- a/gdb/testsuite/gdb.fortran/ptype-on-functions.exp > +++ b/gdb/testsuite/gdb.fortran/ptype-on-functions.exp > @@ -29,23 +29,45 @@ if ![fortran_runto_main] then { > continue > } > > +set integer4 [fortran_int4] > +set logical4 [fortran_logical4] > +set integer8 [fortran_int8] > + > +if {[test_compiler_info {clang-*}]} { > + set some_module_class_type "Type number" > + set some_module_aux_info ", $integer8 \\(10\\)" > +} else { > + set some_module_class_type "Type __class_some_module_Number(_t)?" > + set some_module_aux_info "" > +} > + > gdb_test "ptype some_module::get_number" \ > - "type =3D integer\\(kind=3D4\\) \\(Type __class_some_module_Number(_= t)?\\)" > + "type =3D $integer4 \\(${some_module_class_type}${some_module_aux_in= fo}\\)" > > gdb_test "ptype some_module::set_number" \ > - "type =3D void \\(Type __class_some_module_Number(_t)?, integer\\(ki= nd=3D4\\)\\)" > + "type =3D void \\(${some_module_class_type}, $integer4${some_module_= aux_info}\\)" > > gdb_test "ptype is_bigger" \ > - "type =3D logical\\(kind=3D4\\) \\(integer\\(kind=3D4\\), integer\\(= kind=3D4\\)\\)" > + "type =3D $logical4 \\($integer4, $integer4\\)" > > gdb_test "ptype say_numbers" \ > - "type =3D void \\(integer\\(kind=3D4\\), integer\\(kind=3D4\\), inte= ger\\(kind=3D4\\)\\)" > + "type =3D void \\($integer4, $integer4, $integer4\\)" > + > +set fun_ptr_arg "$integer4" > +if {[test_compiler_info {gcc-*}]} { > + set fun_ptr_arg "REF TO -> \\( ${fun_ptr_arg} \\)" > +} > > gdb_test "ptype fun_ptr" \ > - "type =3D PTR TO -> \\( integer\\(kind=3D4\\) \\(\\) \\(REF TO -> \\= ( integer\\(kind=3D4\\) \\)\\) \\)" > + "type =3D PTR TO -> \\( $integer4 \\(\\) \\(${fun_ptr_arg}\\) \\)" > > gdb_test "ptype say_string" \ > - "type =3D void \\(character\\*\\(\\*\\), integer\\(kind=3D\\d+\\)\\)= " > + "type =3D void \\(character\[^,\]+, $integer8\\)" > + > +set say_array_artificial_first_arg "" > +if {[test_compiler_info {clang-*}]} { > + set say_array_artificial_first_arg "$integer8, " > +} > > gdb_test "ptype say_array" \ > - "type =3D void \\(integer\\(kind=3D4\\) \\(:,:\\)\\)" > + "type =3D void \\(${say_array_artificial_first_arg}$integer4 \\(:,:\= \)\\)" > -- > 2.17.1 > > > -----Original Message----- > From: Andrew Burgess > Sent: Wednesday, June 2, 2021 3:13 PM > To: Kumar N, Bhuvanendra > Cc: gdb-patches@sourceware.org; George, Jini Susan=20 > ; Achra, Nitika ;=20 > Sharma, Alok Kumar ; E, Nagajyothi=20 > ; Tomar, Sourabh Singh=20 > > Subject: Re: [PATCH] [gdb.fortran] Add type info of formal parameter=20 > for clang in ptype-on-functions.exp > > [CAUTION: External Email] > > * Kumar N, Bhuvanendra [2021-05-26 07:59:08 = +0000]: > > > [AMD Official Use Only - Internal Distribution Only] > > > > Hi all, > > > > Gentle Ping 2! > > > > Please let me know if any other details are required, thanks > > Hi, > > Thanks for your patience, sorry to have taken so long to get back to you. > > Below is a patch more inline with how I think cases like this should be a= ddressed. > > The difference to the approach you have taken is that, instead of just ha= ving two code paths, and in each path duplicating all of the tests, I use c= ompiler checks to setup variables that are then used to tweak the expected = output patterns. > > The benefit I see is that if common parts of the output change, we only n= eed to update one pattern, and if any extra tests are added then there will= be less chance of the new test only being added along one path by mistake. > > The only reason I didn't just commit this is that I think I'm not getting= the same output as you are, you'll notice that some of the tests in this c= ommit have setup_kfail, these are all the tests where I'm seeing different = output to you. > > Would you be willing to take this commit and see if you can finish this o= ff so that it meets your needs? > > Thanks, > Andrew > > > > > --- > > diff --git a/gdb/testsuite/gdb.fortran/ptype-on-functions.exp=20 > b/gdb/testsuite/gdb.fortran/ptype-on-functions.exp > index 14f522d6d42..772edc7e8a9 100644 > --- a/gdb/testsuite/gdb.fortran/ptype-on-functions.exp > +++ b/gdb/testsuite/gdb.fortran/ptype-on-functions.exp > @@ -29,23 +29,54 @@ if ![fortran_runto_main] then { > continue > } > > +set integer4 [fortran_int4] > +set logical4 [fortran_logical4] > +set integer8 [fortran_int8] > + > +if {[test_compiler_info {clang-*}]} { > + set some_module_class_type "Type number" > + set some_module_aux_info ", $integer8 \\(10\\)" > +} else { > + set some_module_class_type "Type __class_some_module_Number(_t)?" > + set some_module_aux_info "" > +} > + > +if {[test_compiler_info {clang-*}]} { > + setup_kfail *-*-* "gets a pointer for some reason" > +} > gdb_test "ptype some_module::get_number" \ > - "type =3D integer\\(kind=3D4\\) \\(Type __class_some_module_Number(_= t)?\\)" > + "type =3D $integer4 \\(${some_module_class_type}${some_module_aux_in= fo}\\)" > > gdb_test "ptype some_module::set_number" \ > - "type =3D void \\(Type __class_some_module_Number(_t)?, integer\\(ki= nd=3D4\\)\\)" > + "type =3D void \\(${some_module_class_type}, $integer4${some_module_= aux_info}\\)" > > +if {[test_compiler_info {clang-*}]} { > + setup_kfail *-*-* "gets a pointer for some reason" > +} > gdb_test "ptype is_bigger" \ > - "type =3D logical\\(kind=3D4\\) \\(integer\\(kind=3D4\\), integer\\(= kind=3D4\\)\\)" > + "type =3D $logical4 \\($integer4, $integer4\\)" > > gdb_test "ptype say_numbers" \ > - "type =3D void \\(integer\\(kind=3D4\\), integer\\(kind=3D4\\), inte= ger\\(kind=3D4\\)\\)" > + "type =3D void \\($integer4, $integer4, $integer4\\)" > > +set fun_ptr_arg "$integer4" > +if {[test_compiler_info {gcc-*}]} { > + set fun_ptr_arg "REF TO -> \\( ${fun_ptr_arg} \\)" > +} > + > +if {[test_compiler_info {clang-*}]} { > + setup_kfail *-*-* "missing symbol" > +} > gdb_test "ptype fun_ptr" \ > - "type =3D PTR TO -> \\( integer\\(kind=3D4\\) \\(\\) \\(REF TO -> \\= ( integer\\(kind=3D4\\) \\)\\) \\)" > + "type =3D PTR TO -> \\( $integer4 \\(\\) \\(${fun_ptr_arg}\\) \\)" > > gdb_test "ptype say_string" \ > - "type =3D void \\(character\\*\\(\\*\\), integer\\(kind=3D\\d+\\)\\)= " > + "type =3D void \\(character\[^,\]+, $integer8\\)" > + > +set say_array_artificial_first_arg "" > +if {[test_compiler_info {clang-*}]} { > + set say_array_artificial_first_arg "$integer8, " > +} > > gdb_test "ptype say_array" \ > - "type =3D void \\(integer\\(kind=3D4\\) \\(:,:\\)\\)" > + "type =3D void \\(${say_array_artificial_first_arg}$integer4 \\(:,:\= \)\\)"