RosettaCodeData/Task/Enforced-immutability/ALGOL-68/enforced-immutability.alg

5 lines
262 B
Text
Raw Permalink Normal View History

2013-04-10 16:57:12 -07:00
INT max allowed = 20;
REAL pi = 3.1415 9265; # pi is constant that the compiler will enforce #
REF REAL var = LOC REAL; # var is a constant pointer to a local REAL address #
var := pi # constant pointer var has the REAL value referenced assigned pi #