Hi,
I have found a compiler ( ifort version 9.0) internal error in the intrinsic function pack.
The compilation line is below togheter with the test program.
ifort -v
Version 9.0
ifort -o p2.x p2.f90
fortcom: Severe: p2.f90, line 15: **Internal compiler error: internal abort** Please report this error along with the circumstances in which it occurred in a Software Problem Report. Note: File and line given may not be explicit cause of this error.
x(1:n)=PACK(v(:,:)-v1(:,:),.TRUE.)
-----------------------^
compilation aborted for p2.f90 (code 3)
PROGRAM p2
IMPLICIT NONE
REAL v(2,2), v1(2,2),x(4)
v=101.0
v=99.9
x=pack(v(:,:)-v1(:,:),.true.)
! the version from below compiles
!x=pack(v-v1,.true.)
PRINT*, x
END PROGRAM p2
Yours sincerely,
Lucian Anton
School of Chemical Engineering
and Analytical Science
University of Manchester
PO Box 88
Sackville Street
M60 1QD Manchester
UK
Tel: +44 (0)161 3064358
