     [ 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 ;


! Like word>gc-info but uses the compiler
: word>gc-info-expected ( word -- seq/f )
    test-regs first cfg>gc-maps tally-gc-maps ;

! Handle f f as input. Deferred words don't have any gc-info. See #1394.
: same-gc-info? ( compiler-gc-info/f gc-info/f -- ? )

USING: accessors alien.c-types alien.syntax arrays assocs bit-arrays
classes.struct combinators combinators.short-circuit compiler compiler.cfg
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
