     [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info?
 ] unit-test
 
+! #1436
+{ t } [
+    \ gtk-samples.opengl:opengl-main
+    [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info?
+] unit-test
+
 ! Ensure deterministic gc map generation.
 : recompile-word>gc-info ( word -- gc-info )
     [ 1array compile ] keep word>gc-info ;

USING: accessors alien.c-types alien.syntax arrays assocs bit-arrays
classes.struct combinators combinators.short-circuit compiler
compiler.cfg.debugger compiler.cfg.instructions compiler.cfg.linearization
compiler.cfg.stack-frame compiler.codegen.gc-maps compiler.units fry generic
grouping io io.encodings.binary io.streams.byte-array kernel math namespaces

QUALIFIED: cpu.x86.features.private
QUALIFIED: crypto.aes.utils
QUALIFIED: effects
QUALIFIED: gtk-samples.opengl
QUALIFIED: opencl

: normal? ( word -- ? )
