Bug report: Fortran 2003 pointer remaping

I am testing the Fortran 2003 pointer features with the following code

program test_pointer
    implicit none
    double precision, dimension(3,-1:10,-1:10),target :: P
    double precision, dimension(:,:),pointer :: h,hu,hv
    P(1,:,:)= 100.0;
    P(2,:,:)= 200.0;
    P(3,:,:)= 300.0;
    h (-1:,-1:) => P(1,:,:)
    hu(-1:,-1:) => P(2,:,:)
    hv(-1:,-1:) => P(3,:,:)
    print *, h(1,1), hu(1,1), hv(1,1)
end program

I suppose the output will be
100 200 300.
but the actual output is
100 100 100

pgfortran version

pgfortran 13.10-0 64-bit target on x86-64 Linux -tp penryn
The Portland Group - PGI Compilers and Tools
Copyright (c) 2013, NVIDIA CORPORATION.  All rights reserved.


Linux *********  2.6.32-358.11.1.el6.x86_64 #1 SMP Wed May 15 10:48:38 EDT 2013 x86_64 x86_64 x86_64 GNU/Linux

Hi mianmian10,

Thanks for the report. I added a problem report, TPR#19660, and sent it on to our compiler engineers for further investigation.

Best Regards,


The problem logged as TPR 19660, has been fixed in the current 14.1 release.