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,PARAMETER :: ke=12
INTEGER :: i,b(ke)
REAL :: hhl_z(ke)
hhl_z(:)=1
b=NINT(hhl_z(ke:1:-1)) ! works
PRINT*,b ! works
PRINT*,NINT(hhl_z(ke:1:-1)) ! segfault
END PROGRAM bugpg6
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