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
