//  /*--------------------------------------------------------*\
//  |   Main Program: Pointer test with ordinary C++ pointers
//  \*--------------------------------------------------------*/

///-------------------------------------------------------------
/// Global Context ---------------------------------------------
///-------------------------------------------------------------

#include "RESOLVE_Foundation.h"

///-------------------------------------------------------------
/// Interface --------------------------------------------------
///-------------------------------------------------------------

program_body main ()
{
    object Integer *p1, *p2, *p3;
//    object Integer* p1, p2, p3;  // ???
    
    p1 = new Integer;
    p2 = new Integer;
    p3 = new Integer;

    (*p1) = 59;
    (*p2)++;
    (*p3) = 2 * ((*p1) + (*p2));
    debug ("(*p1) = " << (*p1));
    debug ("(*p2) = " << (*p2));
    debug ("(*p3) = " << (*p3));

    p2 = NULL;
    
    p2 = p1;
    (*p3) = 2 * ((*p1) + (*p2));
    debug ("(*p1) = " << (*p1));
    debug ("(*p2) = " << (*p2));
    debug ("(*p3) = " << (*p3));

    if (p3 == NULL)
    {
	debug ("surprise");
    }

    delete p1;
    delete p2;
    delete p3;
}