Syntax error on pointer initialisation to non-`null()` values

[ZedThree]

MVCE:

$ cat mvce.f90
module mvce
  integer, target :: var = 1
  integer, pointer :: ptr => var
end module mvce
$ fparser2 --task=none --std=f2008 mvce.f90 
File: 'mvce.f90'
Syntax error: at line 3
>>>  integer, pointer :: ptr => var

This is R505/C511 in F2008, initial-data-target. I guess even in F2003 mode, it would perhaps be nice to have a more descriptive error message?

[arporter]

I'd forgotten about this and Mike Hobson has just rediscovered it :-( We should fix it...