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

[Jerry DeLisle]

Jerry DeLisle wrote:
> Ping
> 
> Jerry DeLisle wrote:
>> :ADDPATCH fortran:
>>
>> 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.
>>
>> OK for trunk?  Fixing test case appropriately.
>>

Here is the proper test case:

! { dg-do compile }
! PR32360 Won't compile 'data ptr1 /null ()/' when ptr1 has pointer attribute.
       integer, pointer :: ptr1
       data ptr1 /NULL()/
       end