Compile error

Compile error

Hi,

i have changed from 7.0 to 7.1 of the ifc compiler.

The following small program is compiled well with 7.0 but not with 7.1

MODULE Kind_Mod
INTEGER, PARAMETER :: RealKind=8
REAL(RealKind), PARAMETER :: Zero=0.0d0
END MODULE Kind_Mod
MODULE Vector_Mod
USE Kind_Mod
IMPLICIT NONE
TYPE Vector_T
REAL(RealKInd), POINTER :: c(:)
END TYPE Vector_T
INTERFACE ASSIGNMENT(=)
MODULE PROCEDURE Copy_VectorScalar
END INTERFACE
CONTAINS
SUBROUTINE Copy_VectorScalar(Vec,Scalar)
TYPE(Vector_T), INTENT(OUT) :: Vec
REAL(RealKind), INTENT(IN) :: Scalar
Vec%c=Scalar
END SUBROUTINE Copy_VectorScalar
END MODULE Vector_Mod
MODULE SparseLU_Mod
USE Vector_Mod
IMPLICIT NONE
TYPE MatVector_T
TYPE(Vector_T) :: c
END TYPE MatVector_T
INTERFACE ASSIGNMENT(=)
MODULE PROCEDURE CopyScalar_MatVector
END INTERFACE
CONTAINS
SUBROUTINE CopyScalar_MatVector(Vec1,Value)
TYPE(MatVector_T), INTENT(OUT) :: Vec1
REAL(RealKind), INTENT(IN) :: Value
Vec1%c=Value
END SUBROUTINE CopyScalar_MatVector
END MODULE SparseLU_Mod
PROGRAM ImpRos
USE SparseLU_Mod
IMPLICIT NONE
TYPE(MatVector_T) :: c
c=Zero
END PROGRAM ImpRos

The error is
c=Zero
^
Error 166 at (41:Ta2.f90) : Type conformance violation on assignment

Oswald

2 posts / 0 new
Last post
For more complete information about compiler optimizations, see our Optimization Notice.

I don't see this with a current 7.1 compiler.

I suggest downloading the latest update from Intel Premier Support and see if the problem is still there.

Steve

Retired 12/31/2016

Leave a Comment

Please sign in to add a comment. Not a member? Join today