MODULE badabs ;

VAR
   c: CARDINAL ;
BEGIN
   c := ABS (foo)
END badabs.