channel c.

free s : bitstring [private].

query attacker(s).

let P() =
        phase 1; out(c, s).

process
	phase 1; P()

(* EXPECTPV
Error: process P called in phase 1 and uses phase 1: phases should be in increasing order.
xtime: error in child process (status : 2)
END *)
