The following is not flagged: DOUBLE PRECISION X (1000) DOUBLE PRECISION A INTEGER NCP NCP = 10 CALL XYZ (NCP, X, X (NCP + 1)) CALL XYZ (NCP, X (NCP+1) , X) CALL XYZ (NCP, X (NCP+1) , A) END The second call is not compatible with the third one, and should be flagged.