begriffs open source - acsl-example/blob - src/find1.c

   1 #include "find1_axioms.h"
   2 #include "algos.h"
   3
   4 /*@
   5         requires \valid_read(a + (0..n-1));
   6         assigns \nothing;
   7         ensures 0 <= \result <= n;
   8
   9         behavior some:
  10                 assumes \exists integer i; 0 <= i < n && a[i] == v;
  11                 assigns \nothing;
  12                 ensures 0 <= \result < n;
  13                 ensures a[\result] == v;
  14                 ensures \forall integer i; 0 <= i < \result ==> a[i] != v;
  15
  16         behavior none:
  17                 assumes \forall integer i; 0 <= i < n ==> a[i] != v;
  18                 assigns \nothing;
  19                 ensures \result == n;
  20
  21         complete behaviors;
  22         disjoint behaviors;
  23 */
  24 size_type
  25 find(const value_type* a, size_type n, value_type v)
  26 {
  27         /*@
  28           loop invariant 0 <= i <= n;
  29           loop invariant \forall integer k; 0 <= k < i ==> a[k] != v;
  30           loop assigns i;
  31           loop variant n-i;
  32           */
  33         for (size_type i = 0u; i < n; i++) {
  34                 if (a[i] == v) {
  35                         return i;
  36                 }
  37         }
  38         return n;
  39 }