// STLport regression testsuite component.
// To compile as a separate example, please #define MAIN.

#include <iostream>
#include <algorithm>
#include <iterator>
#include <functional>

#ifdef MAIN 
#define ptrunf1_test main
#endif
bool even(int n_)
{
  return(n_ % 2) == 0;
}

#if !defined (STLPORT) || defined(__STL_USE_NAMESPACES)
using namespace std;
#endif
int ptrunf1_test(int, char**)
{
  cout<<"Results of ptrunf1_test:"<<endl;

int array [3] = { 1, 2, 3 };

  int* p = find_if((int*)array, (int*)array + 3, 
    pointer_to_unary_function<int, bool>(even));
  if(p != array + 3)
    cout << *p << " is even" << endl;
    
   if(2 !=*p)
     return 1;
   else   
    return 0;
}