From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 11586 invoked by alias); 7 Sep 2010 22:19:38 -0000 Received: (qmail 11576 invoked by uid 22791); 7 Sep 2010 22:19:37 -0000 X-SWARE-Spam-Status: No, hits=-1.2 required=5.0 tests=AWL,BAYES_00,T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from mms2.broadcom.com (HELO mms2.broadcom.com) (216.31.210.18) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Tue, 07 Sep 2010 22:19:30 +0000 Received: from [10.16.192.224] by mms2.broadcom.com with ESMTP (Broadcom SMTP Relay (Email Firewall v6.3.2)); Tue, 07 Sep 2010 15:19:11 -0700 X-Server-Uuid: D3C04415-6FA8-4F2C-93C1-920E106A2031 Received: from SJEXCHCCR02.corp.ad.broadcom.com ([10.16.192.131]) by SJEXCHHUB01.corp.ad.broadcom.com ([10.16.192.224]) with mapi; Tue, 7 Sep 2010 15:19:11 -0700 From: "Andrew Burgess" To: "Mathew Yeates" , "Jan Kratochvil" cc: "gdb@sourceware.org" Date: Tue, 07 Sep 2010 22:19:00 -0000 Subject: RE: multidimensional fortran arrays Message-ID: <89AE14E37D740B4796DC14566DF6325ECB7E034783@SJEXCHCCR02.corp.ad.broadcom.com> References: <20100903054655.GA25904@host1.dyn.jankratochvil.net> In-Reply-To: MIME-Version: 1.0 Content-Type: multipart/mixed; boundary=_002_89AE14E37D740B4796DC14566DF6325ECB7E034783SJEXCHCCR02co_ X-IsSubscribed: yes Mailing-List: contact gdb-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-owner@sourceware.org X-SW-Source: 2010-09/txt/msg00053.txt.bz2 --_002_89AE14E37D740B4796DC14566DF6325ECB7E034783SJEXCHCCR02co_ Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable Content-length: 1631 The attached patch might fix the issue for you. It should apply cleanly to = 7.2 I'll write a test and submit to the patches list in a couple of days. Let m= e know if you run into any problems. Andrew > -----Original Message----- > From: gdb-owner@sourceware.org [mailto:gdb-owner@sourceware.org] On > Behalf Of Mathew Yeates > Sent: 07 September 2010 05:34 > To: Jan Kratochvil > Cc: gdb@sourceware.org > Subject: Re: multidimensional fortran arrays >=20 > gdb shouldn't claim to support gfortran until this is fixed. > Seriously, I cant print the value of a multidimensional array? >=20 > On Thu, Sep 2, 2010 at 10:46 PM, Jan Kratochvil > wrote: > > On Thu, 02 Sep 2010 19:29:07 +0200, Mathew Yeates wrote: > >> I mentioned this before but got no reply. So I have been getting the > >> address of the array and using "x/f". > >> But now I am using 4 dimensional arrays and this is getting old. > >> > >> Anyone have any ideas how to fix this? print myarray(1,2) -> "so > such > >> vec element" > > > > For some reason it really does not work even for static arrays. > > program a > > =A0integer :: v (2, 3, 4) > > =A0v (:, :, :) =3D 10 > > =A0v (2, 3, 4) =3D 20 > > =A0v (2, 3, 4) =3D 20 ! line 5 > > end > > (gdb) b 5 > > (gdb) r > > (gdb) p v(2,3,4) > > no such vector element > > > > It works on archer-jankratochvil-vla > > (gdb) p v(2,3,4) > > $1 =3D 20 > > available at > > =A0 =A0 =A0 =A0http://sourceware.org/gdb/wiki/ArcherBranchManagement > > (or Fedora releases) but the support has some other problems and I > should > > merge it to FSF GDB soon. > > > > > > Thanks, > > Jan > > --_002_89AE14E37D740B4796DC14566DF6325ECB7E034783SJEXCHCCR02co_ Content-Type: application/octet-stream; name=arrays.patch Content-Description: arrays.patch Content-Disposition: attachment; filename=arrays.patch; size=3641; creation-date="Tue, 07 Sep 2010 15:13:14 GMT"; modification-date="Tue, 07 Sep 2010 15:13:14 GMT" Content-Transfer-Encoding: base64 Content-length: 4937 ZGlmZiAtcmNwIGdkYi03LjItY2xlYW4vZ2RiL0NoYW5nZUxvZyBnZGItNy4y L2dkYi9DaGFuZ2VMb2cKKioqIGdkYi03LjItY2xlYW4vZ2RiL0NoYW5nZUxv ZwkyMDEwLTA5LTAzIDAwOjM3OjI1LjAwMDAwMDAwMCArMDEwMAotLS0gZ2Ri LTcuMi9nZGIvQ2hhbmdlTG9nCTIwMTAtMDktMDcgMjI6NTg6MDEuMjI5OTc3 NDgxICswMTAwCioqKioqKioqKioqKioqKgoqKiogMSwzICoqKioKLS0tIDEs MTMgLS0tLQorIDIwMTAtMDktMDcgQW5kcmV3IEJ1cmdlc3MgPGFidXJnZXNz QGJyb2FkY29tLmNvbT4KKyAKKyAJKiB2YWxhcml0aC5jICh2YWx1ZV9zdWJz Y3JpcHRlZF9ydmFsdWUpIFdhbGsgdGhyb3VnaAorIAltdWx0aS1kaW1lbnNp b25hbCBhcnJheXMgdG8gZmluZCB0aGUgZWxlbWVudCB0eXBlIGZvciB0aGUK KyAJYXJyYXkuIEFsbG93cyB0aGUgdXBwZXIgYm91bmQgY2hlY2sgdG8gd29y ayB3aXRoIG11bHRpLWRpbWVuc2lvbmFsCisgCWFycmF5cy4KKyAJKiBldmFs LmMgKGV2YWx1YXRlX3N1YmV4cF9zdGFuZGFyZCkgUmVtb3ZlIGhhY2sgZnJv bQorIAltdWx0aV9mNzdfc3Vic2NyaXB0IGNhc2Ugbm93IHRoYXQgbXVsdGkt ZGltZW5zaW9uYWwgYXJyYXlzIGFyZQorIAlzdXBwb3J0ZWQgaW4gdmFsYXJp dGguYworIAogIDIwMTAtMDktMDIgIEpvZWwgQnJvYmVja2VyICA8YnJvYmVj a2VyQGFkYWNvcmUuY29tPgogIAogIAkqIE5FV1M6IFJlcGxhY2UgIkNoYW5n ZXMgc2luY2UgR0RCIDcuMSIgYnkgIkNoYW5nZXMgaW4gR0RCIDcuMiIuCmRp ZmYgLXJjcCBnZGItNy4yLWNsZWFuL2dkYi9ldmFsLmMgZ2RiLTcuMi9nZGIv ZXZhbC5jCioqKiBnZGItNy4yLWNsZWFuL2dkYi9ldmFsLmMJMjAxMC0wNy0w NyAxNzoxNToxNS4wMDAwMDAwMDAgKzAxMDAKLS0tIGdkYi03LjIvZ2RiL2V2 YWwuYwkyMDEwLTA5LTA3IDIyOjQ0OjMxLjQ5Mzk3Njk0NCArMDEwMAoqKioq KioqKioqKioqKiogZXZhbHVhdGVfc3ViZXhwX3N0YW5kYXJkIChzdHJ1Y3Qg dHlwZSAqZQoqKiogMjI5NiwyMzExICoqKioKICAKICAJICAgIHN1YnNjcmlw dF9hcnJheVtuYXJncyAtIGkgLSAxXSAtPSBsb3dlcjsKICAKISAJICAgIC8q IElmIHdlIGFyZSBhdCB0aGUgYm90dG9tIG9mIGEgbXVsdGlkaW1lbnNpb25h bCAKISAJICAgICAgIGFycmF5IHR5cGUgdGhlbiBrZWVwIGEgcHRyIHRvIHRo ZSBsYXN0IEFSUkFZCiEgCSAgICAgICB0eXBlIGFyb3VuZCBmb3IgdXNlIHdo ZW4gY2FsbGluZyB2YWx1ZV9zdWJzY3JpcHQoKQohIAkgICAgICAgYmVsb3cu IFRoaXMgaXMgZG9uZSBiZWNhdXNlIHdlIHByZXRlbmQgdG8gdmFsdWVfc3Vi c2NyaXB0CiEgCSAgICAgICB0aGF0IHdlIGFjdHVhbGx5IGhhdmUgYSBvbmUt ZGltZW5zaW9uYWwgYXJyYXkgCiEgCSAgICAgICBvZiBiYXNlIGVsZW1lbnQg dHlwZSB0aGF0IHdlIGFwcGx5IGEgc2ltcGxlIAohIAkgICAgICAgb2Zmc2V0 IHRvLiAqLwohIAohIAkgICAgaWYgKGkgPCBuYXJncyAtIDEpCiEgCSAgICAg IHRtcF90eXBlID0gY2hlY2tfdHlwZWRlZiAoVFlQRV9UQVJHRVRfVFlQRSAo dG1wX3R5cGUpKTsKICAJICB9CiAgCiAgCS8qIE5vdyBsZXQgdXMgY2FsY3Vs YXRlIHRoZSBvZmZzZXQgZm9yIHRoaXMgaXRlbSAqLwotLS0gMjI5NiwyMzAy IC0tLS0KICAKICAJICAgIHN1YnNjcmlwdF9hcnJheVtuYXJncyAtIGkgLSAx XSAtPSBsb3dlcjsKICAKISAJICAgIHRtcF90eXBlID0gY2hlY2tfdHlwZWRl ZiAoVFlQRV9UQVJHRVRfVFlQRSAodG1wX3R5cGUpKTsKICAJICB9CiAgCiAg CS8qIE5vdyBsZXQgdXMgY2FsY3VsYXRlIHRoZSBvZmZzZXQgZm9yIHRoaXMg aXRlbSAqLwoqKioqKioqKioqKioqKiogZXZhbHVhdGVfc3ViZXhwX3N0YW5k YXJkIChzdHJ1Y3QgdHlwZSAqZQoqKiogMjMxNiwyMzI5ICoqKioKICAJICBv ZmZzZXRfaXRlbSA9CiAgCSAgICBhcnJheV9zaXplX2FycmF5W2kgLSAxXSAq IG9mZnNldF9pdGVtICsgc3Vic2NyaXB0X2FycmF5W2kgLSAxXTsKICAKLSAJ LyogTGV0IHVzIG5vdyBwbGF5IGEgZGlydHkgdHJpY2s6IHdlIHdpbGwgdGFr ZSBhcmcxIAotIAkgICB3aGljaCBpcyBhIHZhbHVlIG5vZGUgcG9pbnRpbmcg dG8gdGhlIHRvcG1vc3QgbGV2ZWwKLSAJICAgb2YgdGhlIG11bHRpZGltZW5z aW9uYWwgYXJyYXktc2V0IGFuZCBwcmV0ZW5kCi0gCSAgIHRoYXQgaXQgaXMg YWN0dWFsbHkgYSBhcnJheSBvZiB0aGUgZmluYWwgZWxlbWVudCAKLSAJICAg dHlwZSwgdGhpcyB3aWxsIGVuc3VyZSB0aGF0IHZhbHVlX3N1YnNjcmlwdCgp Ci0gCSAgIHJldHVybnMgdGhlIGNvcnJlY3QgdHlwZSB2YWx1ZSAqLwotIAot IAlkZXByZWNhdGVkX3NldF92YWx1ZV90eXBlIChhcmcxLCB0bXBfdHlwZSk7 CiAgCXJldHVybiB2YWx1ZV9zdWJzY3JpcHRlZF9ydmFsdWUgKGFyZzEsIG9m ZnNldF9pdGVtLCAwKTsKICAgICAgICB9CiAgCi0tLSAyMzA3LDIzMTIgLS0t LQpkaWZmIC1yY3AgZ2RiLTcuMi1jbGVhbi9nZGIvdmFsYXJpdGguYyBnZGIt Ny4yL2dkYi92YWxhcml0aC5jCioqKiBnZGItNy4yLWNsZWFuL2dkYi92YWxh cml0aC5jCTIwMTAtMDYtMDcgMTc6MTE6MzEuMDAwMDAwMDAwICswMTAwCi0t LSBnZGItNy4yL2dkYi92YWxhcml0aC5jCTIwMTAtMDktMDcgMjI6NTI6MjUu MTU0MDU3Nzk4ICswMTAwCioqKioqKioqKioqKioqKiBzdHJ1Y3QgdmFsdWUg KgoqKiogMTkzLDE5OSAqKioqCiAgdmFsdWVfc3Vic2NyaXB0ZWRfcnZhbHVl IChzdHJ1Y3QgdmFsdWUgKmFycmF5LCBMT05HRVNUIGluZGV4LCBpbnQgbG93 ZXJib3VuZCkKICB7CiAgICBzdHJ1Y3QgdHlwZSAqYXJyYXlfdHlwZSA9IGNo ZWNrX3R5cGVkZWYgKHZhbHVlX3R5cGUgKGFycmF5KSk7CiEgICBzdHJ1Y3Qg dHlwZSAqZWx0X3R5cGUgPSBjaGVja190eXBlZGVmIChUWVBFX1RBUkdFVF9U WVBFIChhcnJheV90eXBlKSk7CiAgICB1bnNpZ25lZCBpbnQgZWx0X3NpemUg PSBUWVBFX0xFTkdUSCAoZWx0X3R5cGUpOwogICAgdW5zaWduZWQgaW50IGVs dF9vZmZzID0gZWx0X3NpemUgKiBsb25nZXN0X3RvX2ludCAoaW5kZXggLSBs b3dlcmJvdW5kKTsKICAgIHN0cnVjdCB2YWx1ZSAqdjsKLS0tIDE5MywyMDgg LS0tLQogIHZhbHVlX3N1YnNjcmlwdGVkX3J2YWx1ZSAoc3RydWN0IHZhbHVl ICphcnJheSwgTE9OR0VTVCBpbmRleCwgaW50IGxvd2VyYm91bmQpCiAgewog ICAgc3RydWN0IHR5cGUgKmFycmF5X3R5cGUgPSBjaGVja190eXBlZGVmICh2 YWx1ZV90eXBlIChhcnJheSkpOwohICAgc3RydWN0IHR5cGUgKmVsdF90eXBl ID0gYXJyYXlfdHlwZTsgCiEgCiEgICAvKiBQZWVsIG9mIHRoZSBhcnJheSBp bmRpY2VzIHVudGlsIHdlIHJlYWNoIHRoZSBhcnJheSBlbGVtZW50IHR5cGUg Ki8KISAgIGRvIHsKISAgICAgZWx0X3R5cGUgPSBUWVBFX1RBUkdFVF9UWVBF KGVsdF90eXBlKTsKISAgIH0KISAgIHdoaWxlICggVFlQRV9DT0RFKGVsdF90 eXBlKSA9PSBUWVBFX0NPREVfQVJSQVkpOwohIAohICAgZWx0X3R5cGUgPSBj aGVja190eXBlZGVmKGVsdF90eXBlKTsKISAKICAgIHVuc2lnbmVkIGludCBl bHRfc2l6ZSA9IFRZUEVfTEVOR1RIIChlbHRfdHlwZSk7CiAgICB1bnNpZ25l ZCBpbnQgZWx0X29mZnMgPSBlbHRfc2l6ZSAqIGxvbmdlc3RfdG9faW50IChp bmRleCAtIGxvd2VyYm91bmQpOwogICAgc3RydWN0IHZhbHVlICp2Owo= --_002_89AE14E37D740B4796DC14566DF6325ECB7E034783SJEXCHCCR02co_--