[patch, fortran] Fix PR 38672

[Thomas Koenig]

Hello world,

first, a happy new year for everybody!

Here is a fix for PR 38672.  As far as I can see, this should do the
right thing, but I'm open to corrections if I should have missed
something.

One part of this patch is actually identical to Mikael's suggestion
for PR 37829, but there are other test cases which aren't fixed by this,
so I'm not mentioning PR 37829 in the ChangeLog entry.

Regression-tested on trunk.

OK?

	Thomas

2009-01-01  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/38672
	* trans-types.c (gfc_get_derived_type):  Check for the
	presence of derived->ns->proc_name before
	accessing derived->ns->proc_name->attr.flavor .
	* resolve.c (resolve_symbol):  Likewise.

2009-01-01  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/38672
	* gfortran.dg/host_assoc_blockdata_1.f90:  New test.
	* gfortran.dg/host_assoc_blockdata_2.f90:  New test.


-------------- next part --------------
A non-text attachment was scrubbed...
Name: host_assoc_blockdata_1.f90
Type: text/x-fortran
Size: 203 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20090101/59e9e7c0/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: host_assoc_blockdata_2.f90
Type: text/x-fortran
Size: 318 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20090101/59e9e7c0/attachment-0001.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr38672.diff
Type: text/x-patch
Size: 1050 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20090101/59e9e7c0/attachment-0002.bin>