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

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

#ifdef MAIN 
#define ptrbinf1_test main
#endif
static int sum(int x_, int y_)
{
  return x_ + y_;
}

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

  int input1 [4] = { 7, 2, 3, 5 };
  int input2 [4] = { 1, 5, 5, 8 };

  int output [4];
  transform((int*)input1, (int*)input1 + 4, (int*)input2, (int*)output, 
    pointer_to_binary_function<int, int, int>(sum));
  for(int i = 0; i < 4; i++)
    cout << output[i] << endl;
    
    if(8!=output[0])
      failures++;
    else if(7!=output[1])
      failures++;
    else if(8!=output[2])
      failures++;  
    else if(13!=output[3])
      failures++;    
 
  if(failures)
     return 1;
  else    
    return 0;
}