Inconsistent parse tree for allocate statements

[arporter]

allocate(grid%data(ndof))

gives:

Allocation(Data_Ref('%', (Name('grid'), Name('data'))), Allocate_Shape_Spec_List(',', (Allocate_Shape_Spec(None, Name('ndof')),)))

while

allocate(grid%coords, mold=grid%data)

gives:

Data_Ref('%', (Name('grid'), Name('coords')))

My reading of the standard is that both of these cases should give an Allocation object whereas the second one gives a bare Data_Ref. I suspect the parse tree should be:

Allocation(Data_Ref('%', (Name('grid'), Name('data'))), )

[arporter]