File: test5a.mod

package info (click to toggle)
m2c 0.6-4
  • links: PTS
  • area: main
  • in suites: potato
  • size: 2,096 kB
  • ctags: 1,907
  • sloc: ansic: 18,088; sh: 168; makefile: 60
file content (16 lines) | stat: -rw-r--r-- 396 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
(* p.136  9b-8b *)

(* Constant declarations *)

(* A constant expression is an expression which can be evaluated  *)
(*   by a mere textual scan without actually executing            *)
(*   the program. Its operands are constants.                     *)

(* R can not be calculated prior to program execution *)

 MODULE test5a;
  VAR L:REAL;
  CONST R=L+8.92;
  BEGIN
   L:=0.1;
  END test5a.