FW: [Patch, fortran-dev] SELECT TYPE execution and allocatable scalar components

Tue Sep 22 22:01:00 GMT 2009

I have lots of code that can be used to test CLASS and SELECT TYPE and
ALLOCATABLE scalar components.   Much of it is code I sent Daniel Kraft some
time ago, but I also have some newer examples.

I'd be glad to send the code to anyone who requests it.  Or preferably, I
could test these features on an ongoing basis (I use them on a daily basis)
if someone can guide me on how to check out and build the development
branch.  I tried to do so a while back using macports and nearly pulled my
hair out.  My preferred platform is Mac OS X version 10.5.8, but I also have
access to AIX (second choice) and Linux (third choice only because I use it
less often and typically do so in a virtual machine, so it can be a bit
slow).

Damian

------ Forwarded Message
From: Janus Weil <janus@gcc.gnu.org>
Date: Tue, 22 Sep 2009 03:08:30 -0600
To: gfortran <fortran@gcc.gnu.org>, gcc-patches <gcc-patches@gcc.gnu.org>, =
Paul Thomas <paul.richard.thomas@gmail.com>, <salvatore.filippone@uniroma2.=
it>
Subject: [Patch, fortran-dev] SELECT TYPE execution and allocatable scalar =
components

Hi all,

here is my next installment for the fortran-dev branch, featuring the
following enhancements:

1) Simple SELECT TYPE statements do work at runtime, where 'simple'
here refers to all those that have no CLASS IS cases. If CLASS IS
statements are encountered they will simply be ignored, but TYPE IS
and CLASS DEFAULT should work fine (cf. test case). This is the first
working example of dynamically polymorphic code!

2) Allocatable scalar components should be working now (cf. PR 40996).
This is a prerequisite for allocatable scalar CLASS variables. It also
has the effect that Salvatore's PSBLAS library can be compiled
completely now (without errors). Salvatore, can you confirm that with
your most recent version?

3) It contains a small fix for a bootstrap failure (due to a simple
warning), which has been introduced by my last commit.

Given that nobody protests, I will commit this patch to the branch
after a regtest. If anyone cares to help with the OOP branch (now that
it's starting to be actually usable): User-perspective tests of the
new features would be very welcome!

Cheers,
Janus

------ End of Forwarded Message

--_000_C6DE87E76048rousonsandiagov_
Content-Type: text/html;
 charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

<HTML>
<HEAD>
<TITLE>FW: [Patch, fortran-dev] SELECT TYPE execution and allocatable scala=
r components</TITLE>
</HEAD>
<BODY>
<FONT FACE=3D"Calibri, Verdana, Helvetica, Arial"><SPAN STYLE=3D'font-size:=
11pt'>I’m very excited about the recent developments regarding OOP in=
 gfortran.  I have lots of code that can be used to test CLASS and SEL=
ECT TYPE and ALLOCATABLE scalar components.   Much of it is code =
I sent Daniel Kraft some time ago, but I also have some newer examples. I u=
se these features on a daily basis.<BR>
<BR>
I’d be glad to run a lot more tests if someone can guide me on how to=
 check out and build the development branch.  I tried to do so a while=
 back using macports and nearly pulled my hair out.  My preferred plat=
form is Mac OS X version 10.5.8, but I also have access to AIX (second choi=
ce) and Linux (third choice only because I use it less often and typically =
do so in a virtual machine, so it can be rather slow).<BR>
<BR>
Alternatively, I’d be glad to send the code to anyone who wants it wi=
th a request not to post it anywhere public just yet.  (All of the cod=
e will be in the public domain within a few months.)<BR>
<BR>
Damian<BR>
<BR>
------ Forwarded Message<BR>
<B>From: </B>Janus Weil <<a href=3D"janus@gcc.gnu.org">janus@gcc.gnu.org=
</a>><BR>
<B>Date: </B>Tue, 22 Sep 2009 03:08:30 -0600<BR>
<B>To: </B>gfortran <<a href=3D"fortran@gcc.gnu.org">fortran@gcc.gnu.org=
</a>>, gcc-patches <<a href=3D"gcc-patches@gcc.gnu.org">gcc-patches@g=
cc.gnu.org</a>>, Paul Thomas <<a href=3D"paul.richard.thomas@gmail.co=
m">paul.richard.thomas@gmail.com</a>>, <<a href=3D"salvatore.filippon=
e@uniroma2.it">salvatore.filippone@uniroma2.it</a>><BR>
<B>Subject: </B>[Patch, fortran-dev] SELECT TYPE execution and allocatable =
scalar components<BR>
<BR>
Hi all,<BR>
<BR>
here is my next installment for the fortran-dev branch, featuring the<BR>
following enhancements:<BR>
<BR>
1) Simple SELECT TYPE statements do work at runtime, where 'simple'<BR>
here refers to all those that have no CLASS IS cases. If CLASS IS<BR>
statements are encountered they will simply be ignored, but TYPE IS<BR>
and CLASS DEFAULT should work fine (cf. test case). This is the first<BR>
working example of dynamically polymorphic code!<BR>
<BR>
2) Allocatable scalar components should be working now (cf. PR 40996).<BR>
This is a prerequisite for allocatable scalar CLASS variables. It also<BR>
has the effect that Salvatore's PSBLAS library can be compiled<BR>
completely now (without errors). Salvatore, can you confirm that with<BR>
your most recent version?<BR>
<BR>
3) It contains a small fix for a bootstrap failure (due to a simple<BR>
warning), which has been introduced by my last commit.<BR>
<BR>
Given that nobody protests, I will commit this patch to the branch<BR>
after a regtest. If anyone cares to help with the OOP branch (now that<BR>
it's starting to be actually usable): User-perspective tests of the<BR>
new features would be very welcome!<BR>
<BR>
Cheers,<BR>
Janus<BR>
<BR>
<BR>
------ End of Forwarded Message<BR>
</SPAN></FONT>
</BODY>
</HTML>

--_000_C6DE87E76048rousonsandiagov_--

--_006_C6DE87E76048rousonsandiagov_
Content-Type: application/octet-stream;
 name=st_asc_0922.diff
Content-Description: st_asc_0922.diff
Content-Disposition: attachment;
 filename=st_asc_0922.diff;
 size=6548;
 creation-date="Tue, 22 Sep 2009 14:55:58 GMT";
 modification-date="Tue, 22 Sep 2009 14:55:58 GMT"
Content-Transfer-Encoding: base64

SW5kZXg6IGdjYy9mb3J0cmFuL3RyYW5zLWV4cHIuYwo9PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09Ci0tLSBnY2MvZm9ydHJh
bi90cmFucy1leHByLmMJKFJldmlzaW9uIDE1MTkzMykKKysrIGdjYy9mb3J0cmFuL3RyYW5zLWV4
cHIuYwkoQXJiZWl0c2tvcGllKQpAQCAtNDgyLDcgKzQ4Miw4IEBAIGdmY19jb252X2NvbXBvbmVu
dF9yZWYgKGdmY19zZSAqIHNlLCBnZmNfcmVmICogcmVmCiAgICAgICBzZS0+c3RyaW5nX2xlbmd0
aCA9IHRtcDsKICAgICB9CiAKLSAgaWYgKChjLT5hdHRyLnBvaW50ZXIgJiYgYy0+YXR0ci5kaW1l
bnNpb24gPT0gMCAmJiBjLT50cy50eXBlICE9IEJUX0NIQVJBQ1RFUikKKyAgaWYgKCgoYy0+YXR0
ci5wb2ludGVyIHx8IGMtPmF0dHIuYWxsb2NhdGFibGUpICYmIGMtPmF0dHIuZGltZW5zaW9uID09
IDAKKyAgICAgICAmJiBjLT50cy50eXBlICE9IEJUX0NIQVJBQ1RFUikKICAgICAgIHx8IGMtPmF0
dHIucHJvY19wb2ludGVyKQogICAgIHNlLT5leHByID0gYnVpbGRfZm9sZF9pbmRpcmVjdF9yZWZf
bG9jIChpbnB1dF9sb2NhdGlvbiwKIAkJCQkJc2UtPmV4cHIpOwpJbmRleDogZ2NjL2ZvcnRyYW4v
dHJhbnMtYXJyYXkuYwo9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT09PT09PT09PT09PT09Ci0tLSBnY2MvZm9ydHJhbi90cmFucy1hcnJheS5jCShS
ZXZpc2lvbiAxNTE5MzMpCisrKyBnY2MvZm9ydHJhbi90cmFucy1hcnJheS5jCShBcmJlaXRza29w
aWUpCkBAIC01ODczLDcgKzU4NzMsNyBAQCBzdHJ1Y3R1cmVfYWxsb2NfY29tcHMgKGdmY19zeW1i
b2wgKiBkZXJfdHlwZSwgdHJlZQogCSAgICAgIGdmY19hZGRfZXhwcl90b19ibG9jayAoJmZuYmxv
Y2ssIHRtcCk7CiAJICAgIH0KIAotCSAgaWYgKGMtPmF0dHIuYWxsb2NhdGFibGUpCisJICBpZiAo
Yy0+YXR0ci5hbGxvY2F0YWJsZSAmJiBjLT5hdHRyLmRpbWVuc2lvbikKIAkgICAgewogCSAgICAg
IGNvbXAgPSBmb2xkX2J1aWxkMyAoQ09NUE9ORU5UX1JFRiwgY3R5cGUsCiAJCQkJICBkZWNsLCBj
ZGVjbCwgTlVMTF9UUkVFKTsKQEAgLTU4ODUsNyArNTg4NSw3IEBAIHN0cnVjdHVyZV9hbGxvY19j
b21wcyAoZ2ZjX3N5bWJvbCAqIGRlcl90eXBlLCB0cmVlCiAJY2FzZSBOVUxMSUZZX0FMTE9DX0NP
TVA6CiAJICBpZiAoYy0+YXR0ci5wb2ludGVyKQogCSAgICBjb250aW51ZTsKLQkgIGVsc2UgaWYg
KGMtPmF0dHIuYWxsb2NhdGFibGUpCisJICBlbHNlIGlmIChjLT5hdHRyLmFsbG9jYXRhYmxlICYm
IGMtPmF0dHIuZGltZW5zaW9uKQogCSAgICB7CiAJICAgICAgY29tcCA9IGZvbGRfYnVpbGQzIChD
T01QT05FTlRfUkVGLCBjdHlwZSwKIAkJCQkgIGRlY2wsIGNkZWNsLCBOVUxMX1RSRUUpOwpAQCAt
NjA3Miw3ICs2MDcyLDggQEAgZ2ZjX3RyYW5zX2RlZmVycmVkX2FycmF5IChnZmNfc3ltYm9sICog
c3ltLCB0cmVlIGIKICAgICAgIGdmY19hZGRfZXhwcl90b19ibG9jayAoJmZuYmxvY2ssIHRtcCk7
CiAgICAgfQogCi0gIGlmIChzeW0tPmF0dHIuYWxsb2NhdGFibGUgJiYgIXN5bS0+YXR0ci5zYXZl
ICYmICFzeW0tPmF0dHIucmVzdWx0KQorICBpZiAoc3ltLT5hdHRyLmFsbG9jYXRhYmxlICYmIHN5
bS0+YXR0ci5kaW1lbnNpb24KKyAgICAgICYmICFzeW0tPmF0dHIuc2F2ZSAmJiAhc3ltLT5hdHRy
LnJlc3VsdCkKICAgICB7CiAgICAgICB0bXAgPSBnZmNfdHJhbnNfZGVhbGxvY19hbGxvY2F0ZWQg
KHN5bS0+YmFja2VuZF9kZWNsKTsKICAgICAgIGdmY19hZGRfZXhwcl90b19ibG9jayAoJmZuYmxv
Y2ssIHRtcCk7CkluZGV4OiBnY2MvZm9ydHJhbi9kZWNsLmMKPT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQotLS0gZ2NjL2Zv
cnRyYW4vZGVjbC5jCShSZXZpc2lvbiAxNTE5MzYpCisrKyBnY2MvZm9ydHJhbi9kZWNsLmMJKEFy
YmVpdHNrb3BpZSkKQEAgLTE1NDQsMTUgKzE1NDQsNyBAQCBidWlsZF9zdHJ1Y3QgKGNvbnN0IGNo
YXIgKm5hbWUsIGdmY19jaGFybGVuICpjbCwgZwogCiAgIC8qIENoZWNrIGFycmF5IGNvbXBvbmVu
dHMuICAqLwogICBpZiAoIWMtPmF0dHIuZGltZW5zaW9uKQotICAgIHsKLSAgICAgIGlmIChjLT5h
dHRyLmFsbG9jYXRhYmxlKQotCXsKLQkgIGdmY19lcnJvciAoIkFsbG9jYXRhYmxlIGNvbXBvbmVu
dCBhdCAlQyBtdXN0IGJlIGFuIGFycmF5Iik7Ci0JICByZXR1cm4gRkFJTFVSRTsKLQl9Ci0gICAg
ICBlbHNlCi0JcmV0dXJuIFNVQ0NFU1M7Ci0gICAgfQorICAgIHJldHVybiBTVUNDRVNTOwogCiAg
IGlmIChjLT5hdHRyLnBvaW50ZXIpCiAgICAgewpJbmRleDogZ2NjL2ZvcnRyYW4vZXhwci5jCj09
PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT0KLS0tIGdjYy9mb3J0cmFuL2V4cHIuYwkoUmV2aXNpb24gMTUxOTM2KQorKysgZ2Nj
L2ZvcnRyYW4vZXhwci5jCShBcmJlaXRza29waWUpCkBAIC0zNTUsNiArMzU1LDggQEAgZ2ZjX2Fk
ZF9jb21wb25lbnRfcmVmIChnZmNfZXhwciAqZSwgY29uc3QgY2hhciAqbmEKICAgKCp0YWlsKS0+
dS5jLnN5bSA9IGRlcml2ZWQ7CiAgICgqdGFpbCktPnUuYy5jb21wb25lbnQgPSBnZmNfZmluZF9j
b21wb25lbnQgKGRlcml2ZWQsIG5hbWUsIHRydWUsIHRydWUpOwogICBnY2NfYXNzZXJ0KCgqdGFp
bCktPnUuYy5jb21wb25lbnQpOworICBpZiAoIW5leHQpCisgICAgZS0+dHMgPSAoKnRhaWwpLT51
LmMuY29tcG9uZW50LT50czsKIH0KIAogCkluZGV4OiBnY2MvZm9ydHJhbi90cmFucy10eXBlcy5j
Cj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT0KLS0tIGdjYy9mb3J0cmFuL3RyYW5zLXR5cGVzLmMJKFJldmlzaW9uIDE1MTkz
MykKKysrIGdjYy9mb3J0cmFuL3RyYW5zLXR5cGVzLmMJKEFyYmVpdHNrb3BpZSkKQEAgLTIxMzUs
NyArMjEzNSw4IEBAIGdmY19nZXRfZGVyaXZlZF90eXBlIChnZmNfc3ltYm9sICogZGVyaXZlZCkK
IAkJCQkJCSAgICBQQUNLRURfU1RBVElDLAogCQkJCQkJICAgICFjLT5hdHRyLnRhcmdldCk7CiAJ
fQotICAgICAgZWxzZSBpZiAoYy0+YXR0ci5wb2ludGVyICYmICFjLT5hdHRyLnByb2NfcG9pbnRl
cikKKyAgICAgIGVsc2UgaWYgKChjLT5hdHRyLnBvaW50ZXIgfHwgYy0+YXR0ci5hbGxvY2F0YWJs
ZSkKKwkgICAgICAgJiYgIWMtPmF0dHIucHJvY19wb2ludGVyKQogCWZpZWxkX3R5cGUgPSBidWls
ZF9wb2ludGVyX3R5cGUgKGZpZWxkX3R5cGUpOwogCiAgICAgICBmaWVsZCA9IGdmY19hZGRfZmll
bGRfdG9fc3RydWN0ICgmZmllbGRsaXN0LCB0eXBlbm9kZSwKSW5kZXg6IGdjYy9mb3J0cmFuL3Jl
c29sdmUuYwo9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT09PT09PT09Ci0tLSBnY2MvZm9ydHJhbi9yZXNvbHZlLmMJKFJldmlzaW9uIDE1
MTkzNikKKysrIGdjYy9mb3J0cmFuL3Jlc29sdmUuYwkoQXJiZWl0c2tvcGllKQpAQCAtNjQ1Nyw4
ICs2NDU3LDM4IEBAIHJlc29sdmVfc2VsZWN0X3R5cGUgKGdmY19jb2RlICpjb2RlKQogCX0KICAg
ICB9CiAKLSAgLyogVE9ETzogdHJhbnNmb3JtIHRvIEVYRUNfU0VMRUNULiAgKi8KKyAgLyogVHJh
bnNmb3JtIHRvIEVYRUNfU0VMRUNULiAgKi8KKyAgY29kZS0+b3AgPSBFWEVDX1NFTEVDVDsKKyAg
Z2ZjX2FkZF9jb21wb25lbnRfcmVmIChjb2RlLT5leHByMSwgIiR2aW5kZXgiKTsKIAorICAvKiBM
b29wIG92ZXIgVFlQRSBJUyAvIENMQVNTIElTIGNhc2VzLiAgKi8KKyAgZm9yIChib2R5ID0gY29k
ZS0+YmxvY2s7IGJvZHk7IGJvZHkgPSBib2R5LT5ibG9jaykKKyAgICB7CisgICAgICBjID0gYm9k
eS0+ZXh0LmNhc2VfbGlzdDsKKyAgICAgIGlmIChjLT50cy50eXBlID09IEJUX0RFUklWRUQpCisJ
Yy0+bG93ID0gYy0+aGlnaCA9IGdmY19pbnRfZXhwciAoYy0+dHMudS5kZXJpdmVkLT52aW5kZXgp
OworICAgICAgZWxzZSBpZiAoYy0+dHMudHlwZSA9PSBCVF9DTEFTUykKKwkvKiBDdXJyZW50bHkg
SVMgQ0xBU1MgYmxvY2tzIGFyZSBzaW1wbHkgaWdub3JlZC4KKwkgICBUT0RPOiBJbXBsZW1lbnQg
SVMgQ0xBU1MuICAqLworCWMtPnVucmVhY2hhYmxlID0gMTsKKyAgICB9CisKKyAgLyogRWxpbWlu
YXRlIGRlYWQgYmxvY2tzLiAgKi8KKyAgZm9yIChib2R5ID0gY29kZTsgYm9keSAmJiBib2R5LT5i
bG9jazsgYm9keSA9IGJvZHktPmJsb2NrKQorICAgIHsKKyAgICAgIGlmIChib2R5LT5ibG9jay0+
ZXh0LmNhc2VfbGlzdC0+dW5yZWFjaGFibGUpCisJeworCSAgLyogQ3V0IHRoZSB1bnJlYWNoYWJs
ZSBibG9jayBmcm9tIHRoZSBjb2RlIGNoYWluLiAgKi8KKwkgIGdmY19jb2RlICpjZCA9IGJvZHkt
PmJsb2NrOworCSAgYm9keS0+YmxvY2sgPSBjZC0+YmxvY2s7CisJICAvKiBLaWxsIHRoZSBkZWFk
IGJsb2NrLCBidXQgbm90IHRoZSBibG9ja3MgYmVsb3cgaXQuICAqLworCSAgY2QtPmJsb2NrID0g
TlVMTDsKKwkgIGdmY19mcmVlX3N0YXRlbWVudHMgKGNkKTsKKwl9CisgICAgfQorCisgIHJlc29s
dmVfc2VsZWN0IChjb2RlKTsKKwogfQogCiAKSW5kZXg6IGdjYy9mb3J0cmFuL21hdGNoLmMKPT09
PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PQotLS0gZ2NjL2ZvcnRyYW4vbWF0Y2guYwkoUmV2aXNpb24gMTUxOTM2KQorKysgZ2Nj
L2ZvcnRyYW4vbWF0Y2guYwkoQXJiZWl0c2tvcGllKQpAQCAtNDEwNiw3ICs0MTA2LDcgQEAgY2xl
YW51cDoKIG1hdGNoCiBnZmNfbWF0Y2hfdHlwZV9pcyAodm9pZCkKIHsKLSAgZ2ZjX2Nhc2UgKmM7
CisgIGdmY19jYXNlICpjID0gTlVMTDsKICAgbWF0Y2ggbTsKIAogICBpZiAoZ2ZjX2N1cnJlbnRf
c3RhdGUgKCkgIT0gQ09NUF9TRUxFQ1RfVFlQRSkKQEAgLTQxNDQsNyArNDE0NCw4IEBAIHN5bnRh
eDoKICAgZ2ZjX2Vycm9yICgiU3ludGF4IGVycm9yIGluIFRZUEUgSVMgc3BlY2lmaWNhdGlvbiBh
dCAlQyIpOwogCiBjbGVhbnVwOgotICBnZmNfZnJlZV9jYXNlX2xpc3QgKGMpOyAgLyogbmV3X3N0
IGlzIGNsZWFuZWQgdXAgaW4gcGFyc2UuYy4gICovCisgIGlmIChjICE9IE5VTEwpCisgICAgZ2Zj
X2ZyZWVfY2FzZV9saXN0IChjKTsgIC8qIG5ld19zdCBpcyBjbGVhbmVkIHVwIGluIHBhcnNlLmMu
ICAqLwogICByZXR1cm4gTUFUQ0hfRVJST1I7CiB9CiAKQEAgLTQxNTQsNyArNDE1NSw3IEBAIGNs
ZWFudXA6CiBtYXRjaAogZ2ZjX21hdGNoX2NsYXNzX2lzICh2b2lkKQogewotICBnZmNfY2FzZSAq
YzsKKyAgZ2ZjX2Nhc2UgKmMgPSBOVUxMOwogICBtYXRjaCBtOwogCiAgIGlmIChnZmNfY3VycmVu
dF9zdGF0ZSAoKSAhPSBDT01QX1NFTEVDVF9UWVBFKQpAQCAtNDIxMiw3ICs0MjEzLDggQEAgc3lu
dGF4OgogICBnZmNfZXJyb3IgKCJTeW50YXggZXJyb3IgaW4gQ0xBU1MgSVMgc3BlY2lmaWNhdGlv
biBhdCAlQyIpOwogCiBjbGVhbnVwOgotICBnZmNfZnJlZV9jYXNlX2xpc3QgKGMpOyAgLyogbmV3
X3N0IGlzIGNsZWFuZWQgdXAgaW4gcGFyc2UuYy4gICovCisgIGlmIChjICE9IE5VTEwpCisgICAg
Z2ZjX2ZyZWVfY2FzZV9saXN0IChjKTsgIC8qIG5ld19zdCBpcyBjbGVhbmVkIHVwIGluIHBhcnNl
LmMuICAqLwogICByZXR1cm4gTUFUQ0hfRVJST1I7CiB9CiAKSW5kZXg6IGdjYy9mb3J0cmFuL3By
aW1hcnkuYwo9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT09PT09PT09Ci0tLSBnY2MvZm9ydHJhbi9wcmltYXJ5LmMJKFJldmlzaW9uIDE1
MTkzMykKKysrIGdjYy9mb3J0cmFuL3ByaW1hcnkuYwkoQXJiZWl0c2tvcGllKQpAQCAtMTg2OCw3
ICsxODY4LDIwIEBAIGdmY19tYXRjaF92YXJzcGVjIChnZmNfZXhwciAqcHJpbWFyeSwgaW50IGVx
dWl2X2ZsCiAJICBpZiAobSAhPSBNQVRDSF9ZRVMpCiAJICAgIHJldHVybiBtOwogCX0KKyAgICAg
IGVsc2UgaWYgKGNvbXBvbmVudC0+dHMudHlwZSA9PSBCVF9DTEFTUworCSAgICAgICAmJiBjb21w
b25lbnQtPnRzLnUuZGVyaXZlZC0+Y29tcG9uZW50cy0+YXMgIT0gTlVMTAorCSAgICAgICAmJiAh
Y29tcG9uZW50LT5hdHRyLnByb2NfcG9pbnRlcikKKwl7CisJICB0YWlsID0gZXh0ZW5kX3JlZiAo
cHJpbWFyeSwgdGFpbCk7CisJICB0YWlsLT50eXBlID0gUkVGX0FSUkFZOwogCisJICBtID0gZ2Zj
X21hdGNoX2FycmF5X3JlZiAoJnRhaWwtPnUuYXIsCisJCQkJICAgY29tcG9uZW50LT50cy51LmRl
cml2ZWQtPmNvbXBvbmVudHMtPmFzLAorCQkJCSAgIGVxdWl2X2ZsYWcpOworCSAgaWYgKG0gIT0g
TUFUQ0hfWUVTKQorCSAgICByZXR1cm4gbTsKKwl9CisKICAgICAgIGlmICgoY29tcG9uZW50LT50
cy50eXBlICE9IEJUX0RFUklWRUQgJiYgY29tcG9uZW50LT50cy50eXBlICE9IEJUX0NMQVNTKQog
CSAgfHwgZ2ZjX21hdGNoX2NoYXIgKCclJykgIT0gTUFUQ0hfWUVTKQogCWJyZWFrOwo=

--_006_C6DE87E76048rousonsandiagov_
Content-Type: application/octet-stream;
 name=select_type_2.f03
Content-Description: select_type_2.f03
Content-Disposition: attachment;
 filename=select_type_2.f03;
 size=776;
 creation-date="Tue, 22 Sep 2009 14:55:58 GMT";
 modification-date="Tue, 22 Sep 2009 14:55:58 GMT"
Content-Transfer-Encoding: base64

ISB7IGRnLWRvIHJ1biB9CgogIHR5cGUgOjogdDEKICAgIGludGVnZXIgOjogaQogIGVuZCB0eXBl
IHQxCgogIHR5cGUsIGV4dGVuZHModDEpIDo6IHQyCiAgICBpbnRlZ2VyIDo6IGoKICBlbmQgdHlw
ZSB0MgoKICB0eXBlLCBleHRlbmRzKHQxKSA6OiB0MwogICAgcmVhbCA6OiByCiAgZW5kIHR5cGUK
CiAgY2xhc3ModDEpLCBwb2ludGVyIDo6IGNwCiAgdHlwZSh0MSksIHRhcmdldCA6OiBhCiAgdHlw
ZSh0MiksIHRhcmdldCA6OiBiCiAgdHlwZSh0MyksIHRhcmdldCA6OiBjCgogIGNwID0+IGEKCiAg
c2VsZWN0IHR5cGUgKGNwKQogIHR5cGUgaXMgKHQxKQogICAgcHJpbnQgKiwiVFlQRSh0MSkiCiAg
dHlwZSBpcyAodDIpCiAgICBwcmludCAqLCJUWVBFKHQyKSIKICBjbGFzcyBpcyAodDEpICAhIGln
bm9yZWQKICAgIHByaW50ICosIkNMQVNTKHQxKSIKICBlbmQgc2VsZWN0CgogIGNwID0+IGIKCiAg
c2VsZWN0IHR5cGUgKGNwKQogIHR5cGUgaXMgKHQxKQogICAgcHJpbnQgKiwiVFlQRSh0MSkiCiAg
dHlwZSBpcyAodDIpCiAgICBwcmludCAqLCJUWVBFKHQyKSIKICBjbGFzcyBpcyAodDIpICAhIGln
bm9yZWQKICAgIHByaW50ICosIkNMQVNTKHQyKSIKICBlbmQgc2VsZWN0CgogIGNwID0+IGMKCiAg
c2VsZWN0IHR5cGUgKGNwKQogIHR5cGUgaXMgKHQxKQogICAgcHJpbnQgKiwiVFlQRSh0MSkiCiAg
dHlwZSBpcyAodDIpCiAgICBwcmludCAqLCJUWVBFKHQyKSIKICBjbGFzcyBkZWZhdWx0CiAgICBw
cmludCAqLCJkZWZhdWx0IgogIGVuZCBzZWxlY3QKCmVuZAo=

--_006_C6DE87E76048rousonsandiagov_
Content-Type: application/octet-stream;
 name=allocatable_scalars_2.f90
Content-Description: allocatable_scalars_2.f90
Content-Disposition: attachment;
 filename=allocatable_scalars_2.f90;
 size=313;
 creation-date="Tue, 22 Sep 2009 14:55:58 GMT";
 modification-date="Tue, 22 Sep 2009 14:55:58 GMT"
Content-Transfer-Encoding: base64

ISB7IGRnLWRvIHJ1biB9CiEKISBQUiA0MDk5NjogW0YwM10gQUxMT0NBVEFCTEUgc2NhbGFycwoh
CiEgQ29udHJpYnV0ZWQgYnkgSmFudXMgV2VpbCA8amFudXNAZ2NjLmdudS5vcmc+CgppbXBsaWNp
dCBub25lCgp0eXBlIDo6IHQKICBpbnRlZ2VyLCBhbGxvY2F0YWJsZSA6OiBpCmVuZCB0eXBlCgp0
eXBlKHQpOjp4CgphbGxvY2F0ZSh4JWkpCgp4JWkgPSAxMwpwcmludCAqLHglaQppZiAoLm5vdC4g
YWxsb2NhdGVkKHglaSkpIGNhbGwgYWJvcnQoKQoKZGVhbGxvY2F0ZSh4JWkpCgppZiAoYWxsb2Nh
dGVkKHglaSkpIGNhbGwgYWJvcnQoKQoKZW5kCg==

--_006_C6DE87E76048rousonsandiagov_--

------ End of Forwarded Message

------ End of Forwarded Message