Vector intrinsic problem in pgf90 6.0

Dear colleagues, since PGI version 6.0 (even tried last update 6.0-4) I have trouble with the following simple f90 program which formerly worked:

PROGRAM bugpg6
INTEGER :: i,b(ke)
REAL :: hhl_z(ke)

b=NINT(hhl_z(ke:1:-1))      ! works
PRINT*,b                    ! works
PRINT*,NINT(hhl_z(ke:1:-1)) ! segfault


regardless of compilation options. gdb gives the following output:

(gdb) run
Starting program: /automount/nfs/spino_home/.mod/cesari/lokal/lm_z/src/baco 
            1            1            1            1            1            1 
            1            1            1            1            1            1
            1            1            1            1            1            1 

Program received signal SIGSEGV, Segmentation fault.
0x08056e77 in __hpf_dealloc ()
(gdb) where
#0  0x08056e77 in __hpf_dealloc ()
#1  0x08057018 in pgf90_dealloc ()
#2  0x08049e78 in bugpg6 () at baco.f90:9
#3  0x080498cb in main ()

Has anyone a similar problem? Is there any upcoming patch?
thank you, Davide

Hi Davide,

Thank you for sending this in. We have not seen this bug before and will begin investigating its cause. I have given it to our compiler team, submitted a technical problem report (TPR #3551), and added you as the contact. Hopefully we’ll be able to resolve this issue soon and add a fix to a patch release in the near future.