File: test4b.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 (17 lines) | stat: -rw-r--r-- 326 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
(* p.135 10b-9b *)

(* Declarations and scope rules *)

(* Every identifier occuring in a program must be introduced *)
(*   by a declaration, unless it is a standard identifier.   *)

(* The standard identifier NIL is declared *)

 MODULE test4b;
  TYPE
      NIL=CARDINAL;
  VAR
      A:NIL;
  BEGIN
   A:=24;
  END test4b.