DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Исправлены переводы строк в модуле Reals
[dsw-obn.git]
/
tests
/
Test17Common.obn
1
MODULE
Test17Common
;
2
3
TYPE
4
PRec
=
POINTER
TO
RecDesc
;
5
RecDesc
=
RECORD
fld
,
fldRO
-,
fldRW
* :
INTEGER
END
;
6
PArr
=
POINTER
TO
Arr
;
7
Arr
=
ARRAY
3
OF
INTEGER
;
8
9
VAR
10
rec
,
recRO
-,
recRW
* :
RecDesc
;
11
p
,
pRO
-,
pRW
* :
PRec
;
12
arr
,
arrRO
-,
arrRW
* :
Arr
;
13
pa
,
paRO
-,
paRW
* :
PArr
;
14
15
END
Test17Common
.