Rename newtestsuite to testsuite
[dyninst.git] / testsuite / src / dyninst / test1_36F_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_36F_mutatee.c,v 1.1 2008/10/30 19:19:22 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_36_globalVariable1_, test1_36_globalVariable2_, test1_36_globalVariable3_,
56     test1_36_globalVariable4_, test1_36_globalVariable5_, test1_36_globalVariable6_,
57     test1_36_globalVariable7_, test1_36_globalVariable8_, test1_36_globalVariable9_,
58     test1_36_globalVariable10_;
59    int passedTest_;
60 };
61
62 #if !defined(XLF)
63 #define test1_36_func1 test1_36_func1_
64 #define test1_36f_init_globals test1_36f_init_globals_
65 #define test1_36f_globals test1_36f_globals_
66 #endif
67
68 extern struct block_ test1_36f_globals;
69
70 extern void test1_36f_init_globals ();
71 extern void test1_36_func1 ();
72
73 int mutateeFortran = 1;
74
75 #ifdef F77
76 int mutateeF77 = 1;
77 #else
78 int mutateeF77 = 0;
79 #endif
80
81 int test1_36_globalVariable1;
82 int test1_36_globalVariable2;
83 int test1_36_globalVariable3;
84 int test1_36_globalVariable4;
85 int test1_36_globalVariable5;
86 int test1_36_globalVariable6;
87 int test1_36_globalVariable7;
88 int test1_36_globalVariable8;
89 int test1_36_globalVariable9;
90 int test1_36_globalVariable10;
91
92 int test1_36F_mutatee() {
93   test1_36f_globals.passedTest_ = FALSE;
94
95   if (setupFortranOutput()) {
96     logerror("Error redirecting Fortran component output to log file\n");
97   }
98
99   test1_36f_init_globals();
100
101   test1_36_func1();
102
103   if (cleanupFortranOutput()) {
104     logerror("Error restoring output to stdout\n");
105   }
106
107   /* Combine fortran passedTest with C passedTest */
108   if (test1_36f_globals.passedTest_) {
109     test_passes(testname);
110     return 0;
111   } else {
112     return -1;
113   }
114 }
115
116 void xlf90_41_hack()
117 {
118     test1_36f_globals.test1_36_globalVariable1_ = test1_36_globalVariable1;
119     test1_36f_globals.test1_36_globalVariable2_ = test1_36_globalVariable2;
120     test1_36f_globals.test1_36_globalVariable3_ = test1_36_globalVariable3;
121     test1_36f_globals.test1_36_globalVariable4_ = test1_36_globalVariable4;
122     test1_36f_globals.test1_36_globalVariable5_ = test1_36_globalVariable5;
123     test1_36f_globals.test1_36_globalVariable6_ = test1_36_globalVariable6;
124     test1_36f_globals.test1_36_globalVariable7_ = test1_36_globalVariable7;
125     test1_36f_globals.test1_36_globalVariable8_ = test1_36_globalVariable8;
126     test1_36f_globals.test1_36_globalVariable9_ = test1_36_globalVariable9;
127     test1_36f_globals.test1_36_globalVariable10_ = test1_36_globalVariable10;
128 }
129