// #Unsafe /* * Simple Program for Checking PDRs interprocedual capabilities * */ var y : int; procedure inc() returns () modifies y; { y := y + 1; assert y == 1; } procedure main() returns () modifies y; { var x : int; assume (y == x); call inc(); assert (y == x + 1); }