Remove old testsuite
[dyninst.git] / testsuite / src / dyninst / test1_8F_mutatee.c
1 /*
2  * Copyright (c) 1996-2004 Barton P. Miller
3  * 
4  * We provide the Paradyn Parallel Performance Tools (below
5  * described as "Paradyn") on an AS IS basis, and do not warrant its
6  * validity or performance.  We reserve the right to update, modify,
7  * or discontinue this software at any time.  We shall have no
8  * obligation to supply such updates or modifications or any other
9  * form of support to you.
10  * 
11  * This license is for research uses.  For such uses, there is no
12  * charge. We define "research use" to mean you may freely use it
13  * inside your organization for whatever purposes you see fit. But you
14  * may not re-distribute Paradyn or parts of Paradyn, in any form
15  * source or binary (including derivatives), electronic or otherwise,
16  * to any other organization or entity without our permission.
17  * 
18  * (for other uses, please contact us at paradyn@cs.wisc.edu)
19  * 
20  * All warranties, including without limitation, any warranty of
21  * merchantability or fitness for a particular purpose, are hereby
22  * excluded.
23  * 
24  * By your use of Paradyn, you understand and agree that we (or any
25  * other person or entity with proprietary rights in Paradyn) are
26  * under no obligation to provide either maintenance services,
27  * update services, notices of latent defects, or correction of
28  * defects for Paradyn.
29  * 
30  * Even if advised of the possibility of such damages, under no
31  * circumstances shall we (or any other person or entity with
32  * proprietary rights in the software licensed hereunder) be liable
33  * to you or any third party for direct, indirect, or consequential
34  * damages of any character regardless of type of action, including,
35  * without limitation, loss of profits, loss of use, loss of good
36  * will, or computer failure or malfunction.  You agree to indemnify
37  * us (and any other person or entity with proprietary rights in the
38  * software licensed hereunder) for any and all liability it may
39  * incur to third parties resulting from your use of Paradyn.
40  */
41
42 /* Test application (Mutatee) */
43
44 /* $Id: test1_8F_mutatee.c,v 1.1 2008/10/30 19:20:01 legendre Exp $ */
45
46 #include <stdlib.h>
47 #include "mutatee_util.h"
48
49 // **********************************************************************
50 // The following structure (struct block_) is made to correspond with the
51 // Fortran common block (globals) defined in test1_common.h.  Be sure all
52 // changes to this structure are reflected in the other.
53 // **********************************************************************
54 struct block_ {
55   int test1_8_globalVariable1_;
56   int passedTest_;
57 };
58
59 #if !defined(XLF)
60 #define test1_8_func1 test1_8_func1_
61 #define test1_8f_init_globals test1_8f_init_globals_
62 #define test1_8f_globals test1_8f_globals_
63 #endif
64
65 extern struct block_ test1_8f_globals;
66
67 extern void test1_8f_init_globals ();
68 extern void test1_8_func1 (int *, int *, int *, int *, int *,
69                            int *, int *, int *, int *, int *);
70
71 int mutateeFortran = 1;
72
73 #ifdef F77
74 int mutateeF77 = 1;
75 #else
76 int mutateeF77 = 0;
77 #endif
78
79 int test1_8F_mutatee() {
80   int retval;
81   int *pp1, *pp2, *pp3, *pp4, *pp5, *pp6, *pp7, *pp8, *pp9, *pp10;
82
83   test1_8f_globals.passedTest_ = FALSE;
84
85   pp1 = (int*) malloc (sizeof (int));
86   pp2 = (int*) malloc (sizeof (int));
87   pp3 = (int*) malloc (sizeof (int));
88   pp4 = (int*) malloc (sizeof (int));
89   pp5 = (int*) malloc (sizeof (int));
90   pp6 = (int*) malloc (sizeof (int));
91   pp7 = (int*) malloc (sizeof (int));
92   pp8 = (int*) malloc (sizeof (int));
93   pp9 = (int*) malloc (sizeof (int));
94   pp10 = (int*) malloc (sizeof (int));
95
96   /* Check the return values on those guys */
97   if (pp1 && pp2 && pp3 && pp4 && pp5 && pp6 && pp7 && pp8 && pp9 && pp10) {
98     /* Got the memory we asked for; continue the test */
99
100     *pp1 = 1; *pp2 = 2; *pp3 = 3; *pp4 = 4; *pp5 = 5;
101     *pp6 = 6; *pp7 = 7; *pp8 = 8; *pp9 = 9; *pp10 = 10;
102
103     if (setupFortranOutput()) {
104       logerror("Error redirecting Fortran component output to log file\n");
105     }
106
107     test1_8f_init_globals();
108
109     test1_8_func1(pp1, pp2, pp3, pp4, pp5, pp6, pp7, pp8, pp9, pp10);
110
111     if (cleanupFortranOutput()) {
112       logerror("Error restoring output to stdout\n");
113     }
114
115     if (test1_8f_globals.passedTest_) {
116       test_passes(testname);
117       retval = 0;
118     } else {
119       retval = -1;
120     }
121   } else {
122     /* Memory allocation error means the test fails */
123     logerror("**Failed** test1_8F: memory allocation error\n");
124     retval = -1;
125   }
126
127   /* Clean up the allocated memory */
128   if (pp1) {
129     free(pp1);
130     pp1 = NULL;
131   }
132   if (pp2) {
133     free(pp2);
134     pp2 = NULL;
135   }
136   if (pp3) {
137     free(pp3);
138     pp3 = NULL;
139   }
140   if (pp4) {
141     free(pp4);
142     pp4 = NULL;
143   }
144   if (pp5) {
145     free(pp5);
146     pp5 = NULL;
147   }
148   if (pp6) {
149     free(pp6);
150     pp6 = NULL;
151   }
152   if (pp7) {
153     free(pp7);
154     pp7 = NULL;
155   }
156   if (pp8) {
157     free(pp8);
158     pp8 = NULL;
159   }
160   if (pp9) {
161     free(pp9);
162     pp9 = NULL;
163   }
164   if (pp10) {
165     free(pp10);
166     pp10 = NULL;
167   }
168
169   return retval;
170 }