--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/stdcpp/tsrc/Stdcpp_test/stlport/auto/stlport_pheap/src/pheap1.cpp	Tue Feb 02 02:01:42 2010 +0200
@@ -0,0 +1,51 @@
+  
+// STLport regression testsuite component.
+// To compile as a separate example, please #define MAIN.
+
+#include <algorithm>
+#include <vector>
+#include <iostream>
+#include <iterator>
+
+#ifdef MAIN 
+#define pheap1_test main
+#endif
+
+#if !defined (STLPORT) || defined(__STL_USE_NAMESPACES)
+using namespace std;
+#endif
+int pheap1_test(int, char**)
+{
+  int failures=0;
+  cout<<"Results of pheap1_test:"<<endl;
+  vector<int> v;
+
+  v.push_back(1);
+  v.push_back(20);
+  v.push_back(4);
+  make_heap(v.begin(), v.end());
+
+  v.push_back(7);
+  push_heap(v.begin(), v.end());
+
+  sort_heap(v.begin(), v.end());
+  ostream_iterator<int> iter(cout, " ");
+  copy(v.begin(), v.end(), iter);
+  cout << endl;
+  
+  if( 1!=v[0])
+    failures++;
+  else if(4!=v[1])
+    failures++;
+  else if(7!=v[2])
+    failures++;
+  else if(20!=v[3])
+    failures++;
+    
+  if(failures)
+    return 1;        
+  else
+    return 0;
+}
+
+