diff --git a/src/plugins/qed/export_coq.ml b/src/plugins/qed/export_coq.ml index 0c4862c0175ea3f4310a2472b40fe20b9b1d35c8..8e06fa9404c3431e141abaf3713952d73278804f 100644 --- a/src/plugins/qed/export_coq.ml +++ b/src/plugins/qed/export_coq.ml @@ -320,7 +320,7 @@ struct (fun (c,ts) -> fprintf fmt "@ | @[<hov 2>%s : " (link_name (self#link c)) ; List.iter (fun t -> fprintf fmt "@ %a ->" self#pp_tau t) ts ; - fprintf fmt "@ %a.@]" self#pp_tau result ; + fprintf fmt "@ %a@]" self#pp_tau result ; ) cases ; fprintf fmt ".@]@\n" ; end diff --git a/src/plugins/wp/tests/wp_bts/bts_2471.i b/src/plugins/wp/tests/wp_bts/bts_2471.i new file mode 100644 index 0000000000000000000000000000000000000000..2419c0debd8c56f0daafc2f0bdae517aadb72fff --- /dev/null +++ b/src/plugins/wp/tests/wp_bts/bts_2471.i @@ -0,0 +1,22 @@ +/* run.config + DONTRUN: + */ + +/* run.config_qualif + OPT: -wp-timeout 1 + OPT: -wp-prover native:alt-ergo -wp-timeout 1 + OPT: -wp-prover native:coq + */ + +/*@ axiomatic maps { + type model_digit = octet | sextet; + logic integer foo(model_digit i); + } +*/ + +int foo() +{ + // Shall not fail (parse error in BTS issue) + //@assert ko: \forall int i; i == foo(octet); + return 0; +} diff --git a/src/plugins/wp/tests/wp_bts/oracle_qualif/bts_2471.0.res.oracle b/src/plugins/wp/tests/wp_bts/oracle_qualif/bts_2471.0.res.oracle new file mode 100644 index 0000000000000000000000000000000000000000..98f1622798301b6a86bf3ca9aa6446ad1a45ebd8 --- /dev/null +++ b/src/plugins/wp/tests/wp_bts/oracle_qualif/bts_2471.0.res.oracle @@ -0,0 +1,14 @@ +# frama-c -wp -wp-timeout 1 [...] +[kernel] Parsing tests/wp_bts/bts_2471.i (no preprocessing) +[wp] Running WP plugin... +[wp] Loading driver 'share/wp.driver' +[wp] Warning: Missing RTE guards +[wp] 1 goal scheduled +[wp] [Failed] Goal typed_foo_assert_ko +[wp] Proved goals: 0 / 1 +[wp] Report in: 'tests/wp_bts/oracle_qualif/bts_2471.0.report.json' +[wp] Report out: 'tests/wp_bts/result_qualif/bts_2471.0.report.json' +------------------------------------------------------------- +Functions WP Alt-Ergo Total Success +foo - - 1 0.0% +------------------------------------------------------------- diff --git a/src/plugins/wp/tests/wp_bts/oracle_qualif/bts_2471.1.res.oracle b/src/plugins/wp/tests/wp_bts/oracle_qualif/bts_2471.1.res.oracle new file mode 100644 index 0000000000000000000000000000000000000000..68dc1319cde49b90405061a831cef2979123dab9 --- /dev/null +++ b/src/plugins/wp/tests/wp_bts/oracle_qualif/bts_2471.1.res.oracle @@ -0,0 +1,15 @@ +# frama-c -wp -wp-timeout 1 [...] +[kernel] Parsing tests/wp_bts/bts_2471.i (no preprocessing) +[wp] Running WP plugin... +[wp] Loading driver 'share/wp.driver' +[wp] Warning: Missing RTE guards +[wp] 1 goal scheduled +[wp] [Alt-Ergo (Native)] Goal typed_foo_assert_ko : Unsuccess +[wp] Proved goals: 0 / 1 + Alt-Ergo: 0 (unsuccess: 1) +[wp] Report in: 'tests/wp_bts/oracle_qualif/bts_2471.1.report.json' +[wp] Report out: 'tests/wp_bts/result_qualif/bts_2471.1.report.json' +------------------------------------------------------------- +Functions WP Alt-Ergo Total Success +foo - - 1 0.0% +------------------------------------------------------------- diff --git a/src/plugins/wp/tests/wp_bts/oracle_qualif/bts_2471.2.res.oracle b/src/plugins/wp/tests/wp_bts/oracle_qualif/bts_2471.2.res.oracle new file mode 100644 index 0000000000000000000000000000000000000000..6c44b75068c14cfa5ea543478657ca61008ceeef --- /dev/null +++ b/src/plugins/wp/tests/wp_bts/oracle_qualif/bts_2471.2.res.oracle @@ -0,0 +1,16 @@ +# frama-c -wp [...] +[kernel] Parsing tests/wp_bts/bts_2471.i (no preprocessing) +[wp] Running WP plugin... +[wp] Loading driver 'share/wp.driver' +[wp] Warning: Missing RTE guards +[wp] 1 goal scheduled +[wp] [Coq] Goal typed_foo_assert_ko : Default tactic +[wp] [Coq (Native)] Goal typed_foo_assert_ko : Unsuccess +[wp] Proved goals: 0 / 1 + Coq: 0 (unsuccess: 1) +[wp] Report in: 'tests/wp_bts/oracle_qualif/bts_2471.2.report.json' +[wp] Report out: 'tests/wp_bts/result_qualif/bts_2471.2.report.json' +------------------------------------------------------------- +Functions WP Alt-Ergo Total Success +foo - - 1 0.0% +-------------------------------------------------------------