[patch, fortran] PR32360 'DATA PTR1 /NULL ()/' WHEN PTR1 HAS POINTER ATTRIBUTE

[Jerry DeLisle]

:REVIEWMAIL:

>>>
>>> The attached patch allows the test case in the PR to compile.  
>>> However, it conflicts with the testcase pr15754.f90.  Do we want to 
>>> allow this assignment as an extension or should I further refine the 
>>> checking?  Or is it valid to allow the assignment to NULL as in the PR?
>>>
>>>      integer, pointer :: ptr1
>>>      data ptr1 /NULL()/
>>>      end
>>>
>>> Regression tested on x86-64-Gnu-Linux.
>>>

And I figured out I did not have the patch quite right.  Here is an update. 
With this patch there is no longer a problem with the test case pr15754.f90.

I was not checking for the data attribute.

Regression tested on x86-64 with no problems. pr15754.f90 passes as well as the 
new test case attached.

OK for trunk?

Jerry




-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr32360.diff
Type: text/x-patch
Size: 935 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20070622/a9a61523/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pointer_assign_3.f90
Type: text/x-fortran
Size: 166 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20070622/a9a61523/attachment-0001.bin>