--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/stdcpp/tsrc/Stdcpp_test/stlport/auto/stlport_ptrunf/src/ptrunf2.cpp	Tue Feb 02 02:01:42 2010 +0200
@@ -0,0 +1,35 @@
+ 
+// STLport regression testsuite component.
+// To compile as a separate example, please #define MAIN.
+
+#include <iostream>
+#include <algorithm>
+#include <iterator>
+#include <functional>
+
+#ifdef MAIN 
+#define ptrunf2_test main
+#endif
+static bool even(int n_)
+{
+  return(n_ % 2) == 0;
+}
+
+#if !defined (STLPORT) || defined(__STL_USE_NAMESPACES)
+using namespace std;
+#endif
+int ptrunf2_test(int, char**)
+{
+  cout<<"Results of ptrunf2_test:"<<endl;
+
+int array [3] = { 1, 2, 3 };
+
+  int* p = find_if((int*)array, (int*)array + 3, ptr_fun(even));
+  if(p != array + 3)
+    cout << *p << " is even" << endl;
+  
+   if(2 !=*p)
+     return 1;
+   else   
+    return 0;
+}