Sign in
gnu
/
gcc.git
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
gm2
/
errors
/
fail
/
badconst.mod
blob: 1820b6f3386440fee0e1aaf4c741b2c661d435d8 [
file
] [
log
] [
blame
]
MODULE badconst
;
IMPORT SYSTEM
;
TYPE
T
=
POINTER TO CONS
;
CONS
=
RECORD
CAR
:
SYSTEM
.
ADDRESS
;
CDR
:
T
;
END
;
PROCEDURE POP
(
VAR LST
:
T
):
SYSTEM
.
ADDRESS
;
CONST CAR
=
LST
.
CAR
;
BEGIN
RETURN NIL
;
END
POP
;
BEGIN
END
badconst
.