[patch, fortran] PR32361 TYPE DECLARATION TO INITIALIZE DATA IN NAMED COMMON

[Jerry DeLisle]

This patch is simple, allowing the NULL to be used.

Regression tested on x86-64.

OK for trunk?  Test case will be added.

Does this need to be an extension similar to my question on pr32360?

Reporters example case:

       BLOCK DATA
        integer, pointer :: ptr1 => NULL()
        common / T / ptr1
       END

Jerry

2007-06-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/32361
	* match.c (gfc_match_common): If the symbol value expression type is
	NULL_EXPR, don't error if previously initialized to null.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr32361.diff
Type: text/x-patch
Size: 678 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20070617/a076123e/attachment.bin>