(* ProVerif should find an attack:
   in(c,=s) can be executed iff secret = s*)

param traceDisplay = long.

free d.
free s.

private free secret.
noninterf secret.

private free c.

process
   out(c,secret) | in(c,=s); out(d,d)

(* EXPECTPV
RESULT Non-interference secret cannot be proved.
0.008s (user 0.000s + system 0.008s), max rss 6928K
END *)
