Update copyright to LGPL on all files
[dyninst.git] / dyninstAPI / tests / src / test1_common.h
1 /*
2  * Copyright (c) 1996-2009 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  * By your use of Paradyn, you understand and agree that we (or any
12  * other person or entity with proprietary rights in Paradyn) are
13  * under no obligation to provide either maintenance services,
14  * update services, notices of latent defects, or correction of
15  * defects for Paradyn.
16  * 
17  * This library is free software; you can redistribute it and/or
18  * modify it under the terms of the GNU Lesser General Public
19  * License as published by the Free Software Foundation; either
20  * version 2.1 of the License, or (at your option) any later version.
21  * 
22  * This library is distributed in the hope that it will be useful,
23  * but WITHOUT ANY WARRANTY; without even the implied warranty of
24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
25  * Lesser General Public License for more details.
26  * 
27  * You should have received a copy of the GNU Lesser General Public
28  * License along with this library; if not, write to the Free Software
29  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
30  */
31         IMPLICIT NONE
32
33 #if !defined (F77)
34         TYPE struct26_1
35                 INTEGER field1, field2
36         END TYPE struct26_1
37
38         TYPE struct26_2
39                 INTEGER field1, field2, field3 (10)
40                 TYPE (struct26_1) field4
41         END TYPE struct26_2
42
43         TYPE type27_1
44                 INTEGER field27_11
45                 REAL field27_12
46         END TYPE type27_1
47
48         TYPE type27_2
49                 INTEGER field27_21
50                 REAL field27_22
51         END TYPE type27_2
52
53         TYPE type27_3
54                 INTEGER field3 (10)
55                 TYPE (struct26_2) field4
56         END TYPE type27_3
57
58         TYPE type27_4
59                 INTEGER field3 (10)
60                 TYPE (struct26_2) field5
61         END TYPE type27_4
62
63         TYPE (type27_1) dummy1
64         TYPE (type27_2) dummy2
65         TYPE (type27_3) dummy3
66         TYPE (type27_4) dummy4
67 #endif
68
69         INTEGER globalVariable1_1, globalVariable3_1,
70      & globalVariable4_1, globalVariable5_1, globalVariable5_2,
71      & globalVariable6_1, globalVariable6_2, globalVariable6_3,
72      & globalVariable6_4, globalVariable6_5, globalVariable6_6,
73      & globalVariable6_1a, globalVariable6_2a,
74      & globalVariable6_3a, globalVariable6_4a,
75      & globalVariable6_5a, globalVariable6_6a, constVar0,
76      & constVar1, constVar2, constVar3, constVar4, constVar5,
77      & constVar6, constVar7, constVar9, constVar10, constVar60,
78      & constVar64, constVar66, constVar67, globalVariable7_1,
79      & globalVariable7_2,
80      & globalVariable7_3, globalVariable7_4, globalVariable7_5,
81      & globalVariable7_6, globalVariable7_7, globalVariable7_8,
82      & globalVariable7_9, globalVariable7_10, globalVariable7_11,
83      & globalVariable7_12, globalVariable7_13, globalVariable7_14,
84      & globalVariable7_15, globalVariable7_16, globalVariable7_1a,
85      & globalVariable7_2a, globalVariable7_3a, globalVariable7_4a,
86      & globalVariable7_5a, globalVariable7_6a, globalVariable7_7a,
87      & globalVariable7_8a, globalVariable7_9a, globalVariable7_10a,
88      & globalVariable7_11a, globalVariable7_12a,
89      & globalVariable7_13a, globalVariable7_14a,
90      & globalVariable7_15a, globalVariable7_16a,
91      & globalVariable8_1, globalVariable10_1, globalVariable10_2,
92      & globalVariable10_3, globalVariable10_4, globalVariable11_1,
93      & globalVariable11_2, globalVariable11_3, globalVariable11_4,
94      & globalVariable11_5, globalVariable12_1, globalVariable13_1,
95      & globalVariable14_1, globalVariable14_2, globalVariable15_1,
96      & globalVariable15_2, globalVariable15_3, globalVariable15_4,
97      & globalVariable16_1, globalVariable16_2, globalVariable16_3,
98      & globalVariable16_4, globalVariable16_5, globalVariable16_6,
99      & globalVariable16_7, globalVariable16_8, globalVariable16_9,
100      & globalVariable16_10, globalVariable17_1, globalVariable17_2,
101      & globalVariable18_1, globalVariable19_1, globalVariable19_2,
102      & globalVariable20_1, globalVariable25_1,
103
104 #if defined(alpha_dec_osf4_0)
105      & globalVariable25_2*8,
106 #else
107      & globalVariable25_2,
108 #endif
109      & globalVariable25_3, globalVariable25_4, globalVariable25_5,
110      & globalVariable25_6, globalVariable25_7, globalVariable26_2,
111      & globalVariable26_3, globalVariable26_4, globalVariable26_5,
112      & globalVariable26_6, globalVariable26_7, globalVariable26_8,
113      & globalVariable26_9, globalVariable26_10, 
114      & globalVariable26_11, globalVariable26_12,
115      & globalVariable26_13, globalVariable27_1,
116      & globalVariable27_5 (10), globalVariable27_6 (10),
117      & globalVariable29_1,
118      & globalVariable31_1, globalVariable31_2, globalVariable31_3,
119      & globalVariable31_4, globalVariable32_1, globalVariable32_2,
120      & globalVariable32_3, globalVariable32_4,
121      & globalVariable36_1, globalVariable36_2, globalVariable36_3,
122      & globalVariable36_4, globalVariable36_5, globalVariable36_6,
123      & globalVariable36_7, globalVariable36_8, globalVariable36_9,
124      & globalVariable36_10
125
126         LOGICAL passedTest (40)
127         LOGICAL runTest (40)
128
129         DOUBLE PRECISION globalVariable20_2
130
131         REAL globalVariable27_7 (10), globalVariable27_8 (12)
132
133 ! **********************************************************************
134 ! The following common block (globals) has a corresponding c structure 
135 ! (struct block_) defined in test1.mutateeFortC.c.  Make sure all changes
136 ! to this structure are reflected in the other. (Including the size of
137 ! each memeber defined above)
138 ! **********************************************************************
139         common /globals/ globalVariable20_2, globalVariable1_1,
140      & globalVariable3_1, globalVariable4_1, globalVariable5_1,
141      & globalVariable5_2, globalVariable6_1, globalVariable6_2,
142      & globalVariable6_3, globalVariable6_4, globalVariable6_5,
143      & globalVariable6_6, globalVariable6_1a, globalVariable6_2a,
144      & globalVariable6_3a, globalVariable6_4a, globalVariable6_5a,
145      & globalVariable6_6a, constVar0, constVar1, constVar2,
146      & constVar3,
147      & constVar4, constVar5, constVar6, constVar7, constVar9,
148      & constVar10, constVar60, constVar64, constVar66, constVar67,
149      & globalVariable7_1, globalVariable7_2, globalVariable7_3,
150      & globalVariable7_4, globalVariable7_5, globalVariable7_6,
151      & globalVariable7_7, globalVariable7_8, globalVariable7_9,
152      & globalVariable7_10, globalVariable7_11, globalVariable7_12,
153      & globalVariable7_13, globalVariable7_14, globalVariable7_15,
154      & globalVariable7_16, globalVariable7_1a, globalVariable7_2a,
155      & globalVariable7_3a, globalVariable7_4a, globalVariable7_5a,
156      & globalVariable7_6a, globalVariable7_7a, globalVariable7_8a,
157      & globalVariable7_9a, globalVariable7_10a,
158      & globalVariable7_11a, globalVariable7_12a,
159      & globalVariable7_13a, globalVariable7_14a,
160      & globalVariable7_15a, globalVariable7_16a, globalVariable8_1,
161      & globalVariable10_1, globalVariable10_2, globalVariable10_3,
162      & globalVariable10_4, globalVariable11_1, globalVariable11_2,
163      & globalVariable11_3, globalVariable11_4, globalVariable11_5,
164      & globalVariable12_1, globalVariable13_1, globalVariable14_1,
165      & globalVariable14_2, globalVariable15_1, globalVariable15_2,
166      & globalVariable15_3, globalVariable15_4, globalVariable16_1,
167      & globalVariable16_2, globalVariable16_3, globalVariable16_4,
168      & globalVariable16_5, globalVariable16_6, globalVariable16_7,
169      & globalVariable16_8, globalVariable16_9, globalVariable16_10,
170      & globalVariable17_1, globalVariable17_2, globalVariable18_1,
171      & globalVariable19_1, globalVariable19_2, globalVariable20_1,
172      & globalVariable25_1, globalVariable25_2, globalVariable25_3,
173      & globalVariable25_4, globalVariable25_5, globalVariable25_6,
174      & globalVariable25_7,
175 !       globalVariable26_1,
176      & globalVariable26_2,
177      & globalVariable26_3, globalVariable26_4, globalVariable26_5,
178      & globalVariable26_6, globalVariable26_7, globalVariable26_8,
179      & globalVariable26_9, globalVariable26_10, globalVariable26_11,
180      & globalVariable26_12, globalVariable26_13, globalVariable27_1,
181      & globalVariable27_5, globalVariable27_6, globalVariable27_7,
182      & globalVariable27_8, globalVariable29_1, globalVariable31_1,
183      & globalVariable31_2, globalVariable31_3, globalVariable31_4,
184      & globalVariable32_1, globalVariable32_2, globalVariable32_3,
185      & globalVariable32_4, 
186      & globalVariable36_1, globalVariable36_2, globalVariable36_3,
187      & globalVariable36_4, globalVariable36_5, globalVariable36_6,
188      & globalVariable36_7, globalVariable36_8, globalVariable36_9,
189      & globalVariable36_10,
190      & passedTest, runTest
191