The following code gives error 6731 Object is not a pointer object XG.
I understand this was fixed in 2011, but is there a workaround in 11.1?
program testsize
real,allocatable,target :: XG__(:,:)
real,pointer :: XG(:)
allocate(XG__(12,12))
XG(1:size(XG__)) => XG__
XG(1)=1.0
write(*,*)XG__(1,1)
STOP
END