Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
gm2
/
switches
/
uninit-variable-checking
/
fail
/
testrecinit5.mod
blob: c67620a7923069d2195030cebaf5cb1c29bb0b37 [
file
] [
log
] [
blame
]
MODULE testrecinit5
;
TYPE
color
=
RECORD
r
,
g
,
b
:
CARDINAL
;
END
;
pixel
=
RECORD
fg
,
bg
:
color
;
END
;
PROCEDURE test
;
VAR
p
:
pixel
;
BEGIN
(*
p
.
bg
.
b
:=
6
;
*)
IF p
.
bg
.
b
=
6
THEN
END
END
test
;
BEGIN
test
END
testrecinit5
.