CReal should have Real as corresponding type, not double.