// 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;

}