Hello
The PACK intrinsic and -Mlarge_arrays provoke runtime bug.
Compiler:
pgf90 7.1-0e 64-bit target on x86-64 Linux
Test:
themos@loanamd28>pgf90 -Mnolarge_arrays d02rapn.f90 ; ./a.out
12.00000000000000
themos@loanamd28>pgf90 -Mlarge_arrays d02rapn.f90 ; ./a.out
Segmentation fault
SUBROUTINE D02RAPN(M,N,UU,LDA2,Y,LDY,LDIR)
IMPLICIT NONE
INTEGER, INTENT (IN) :: N
INTEGER, INTENT (IN) :: LDIR, LDY, M, LDA2
DOUBLE PRECISION, INTENT (INOUT) :: UU(LDA2), Y(LDY,LDIR)
INTRINSIC PACK
CONTINUE
UU(1:M*N) = PACK(Y(1:M,1:N),.TRUE.)
RETURN
END SUBROUTINE D02RAPN
PROGRAM MAIN
DOUBLE PRECISION A(100),B(10,10)
B(1,1)= 12.0
CALL D02RAPN(1,1,A,100,B,10,10)
PRINT *, A(1)
END