VAL INT q IS 11:
#INCLUDE "include.inc"
#USE "include2"
#USE "include2.occ"
PROC P ()
  INT x:
  SEQ
    x := defined.thing
    #INCLUDE "includeproc.inc"
    ASSERT (q = 11)
: