RosettaCodeData/Task/Enforced-immutability/Ada/enforced-immutability-2.ada

7 lines
184 B
Ada
Raw Permalink Normal View History

2016-12-05 22:15:40 +01:00
type T is limited private; -- inner structure is hidden
X, Y: T;
B: Boolean;
-- The following operations do not exist:
X := Y; -- illegal (cannot be compiled
B := X = Y; -- illegal