Merge branch 'master' of ssh://bill@git.dyninst.org/pub/dyninst
[dyninst.git] / testsuite / src / test1_common.h
1         IMPLICIT NONE
2
3 #if !defined (F77)
4         TYPE struct26_1
5                 INTEGER field1, field2
6         END TYPE struct26_1
7
8         TYPE struct26_2
9                 INTEGER field1, field2, field3 (10)
10                 TYPE (struct26_1) field4
11         END TYPE struct26_2
12
13         TYPE type27_1
14                 INTEGER field27_11
15                 REAL field27_12
16         END TYPE type27_1
17
18         TYPE type27_2
19                 INTEGER field27_21
20                 REAL field27_22
21         END TYPE type27_2
22
23         TYPE type27_3
24                 INTEGER field3 (10)
25                 TYPE (struct26_2) field4
26         END TYPE type27_3
27
28         TYPE type27_4
29                 INTEGER field3 (10)
30                 TYPE (struct26_2) field5
31         END TYPE type27_4
32
33         TYPE (type27_1) dummy1
34         TYPE (type27_2) dummy2
35         TYPE (type27_3) dummy3
36         TYPE (type27_4) dummy4
37 #endif
38
39         INTEGER globalVariable1_1, globalVariable3_1,
40      & globalVariable4_1, globalVariable5_1, globalVariable5_2,
41      & globalVariable6_1, globalVariable6_2, globalVariable6_3,
42      & globalVariable6_4, globalVariable6_5, globalVariable6_6,
43      & globalVariable6_1a, globalVariable6_2a,
44      & globalVariable6_3a, globalVariable6_4a,
45      & globalVariable6_5a, globalVariable6_6a, constVar0,
46      & constVar1, constVar2, constVar3, constVar4, constVar5,
47      & constVar6, constVar7, constVar9, constVar10, constVar60,
48      & constVar64, constVar66, constVar67, globalVariable7_1,
49      & globalVariable7_2,
50      & globalVariable7_3, globalVariable7_4, globalVariable7_5,
51      & globalVariable7_6, globalVariable7_7, globalVariable7_8,
52      & globalVariable7_9, globalVariable7_10, globalVariable7_11,
53      & globalVariable7_12, globalVariable7_13, globalVariable7_14,
54      & globalVariable7_15, globalVariable7_16, globalVariable7_1a,
55      & globalVariable7_2a, globalVariable7_3a, globalVariable7_4a,
56      & globalVariable7_5a, globalVariable7_6a, globalVariable7_7a,
57      & globalVariable7_8a, globalVariable7_9a, globalVariable7_10a,
58      & globalVariable7_11a, globalVariable7_12a,
59      & globalVariable7_13a, globalVariable7_14a,
60      & globalVariable7_15a, globalVariable7_16a,
61      & globalVariable8_1, globalVariable10_1, globalVariable10_2,
62      & globalVariable10_3, globalVariable10_4, globalVariable11_1,
63      & globalVariable11_2, globalVariable11_3, globalVariable11_4,
64      & globalVariable11_5, globalVariable12_1, globalVariable13_1,
65      & globalVariable14_1, globalVariable14_2, globalVariable15_1,
66      & globalVariable15_2, globalVariable15_3, globalVariable15_4,
67      & globalVariable16_1, globalVariable16_2, globalVariable16_3,
68      & globalVariable16_4, globalVariable16_5, globalVariable16_6,
69      & globalVariable16_7, globalVariable16_8, globalVariable16_9,
70      & globalVariable16_10, globalVariable17_1, globalVariable17_2,
71      & globalVariable18_1, globalVariable19_1, globalVariable19_2,
72      & globalVariable20_1, globalVariable25_1,
73
74 #if defined(alpha_dec_osf4_0)
75      & globalVariable25_2*8,
76 #else
77      & globalVariable25_2,
78 #endif
79      & globalVariable25_3, globalVariable25_4, globalVariable25_5,
80      & globalVariable25_6, globalVariable25_7, globalVariable26_2,
81      & globalVariable26_3, globalVariable26_4, globalVariable26_5,
82      & globalVariable26_6, globalVariable26_7, globalVariable26_8,
83      & globalVariable26_9, globalVariable26_10, 
84      & globalVariable26_11, globalVariable26_12,
85      & globalVariable26_13, globalVariable27_1,
86      & globalVariable27_5 (10), globalVariable27_6 (10),
87      & globalVariable29_1,
88      & globalVariable31_1, globalVariable31_2, globalVariable31_3,
89      & globalVariable31_4, globalVariable32_1, globalVariable32_2,
90      & globalVariable32_3, globalVariable32_4,
91      & globalVariable36_1, globalVariable36_2, globalVariable36_3,
92      & globalVariable36_4, globalVariable36_5, globalVariable36_6,
93      & globalVariable36_7, globalVariable36_8, globalVariable36_9,
94      & globalVariable36_10
95
96         LOGICAL passedTest (40)
97         LOGICAL runTest (40)
98
99         DOUBLE PRECISION globalVariable20_2
100
101         REAL globalVariable27_7 (10), globalVariable27_8 (12)
102
103 ! **********************************************************************
104 ! The following common block (globals) has a corresponding c structure 
105 ! (struct block_) defined in test1.mutateeFortC.c.  Make sure all changes
106 ! to this structure are reflected in the other. (Including the size of
107 ! each memeber defined above)
108 ! **********************************************************************
109         common /globals/ globalVariable20_2, globalVariable1_1,
110      & globalVariable3_1, globalVariable4_1, globalVariable5_1,
111      & globalVariable5_2, globalVariable6_1, globalVariable6_2,
112      & globalVariable6_3, globalVariable6_4, globalVariable6_5,
113      & globalVariable6_6, globalVariable6_1a, globalVariable6_2a,
114      & globalVariable6_3a, globalVariable6_4a, globalVariable6_5a,
115      & globalVariable6_6a, constVar0, constVar1, constVar2,
116      & constVar3,
117      & constVar4, constVar5, constVar6, constVar7, constVar9,
118      & constVar10, constVar60, constVar64, constVar66, constVar67,
119      & globalVariable7_1, globalVariable7_2, globalVariable7_3,
120      & globalVariable7_4, globalVariable7_5, globalVariable7_6,
121      & globalVariable7_7, globalVariable7_8, globalVariable7_9,
122      & globalVariable7_10, globalVariable7_11, globalVariable7_12,
123      & globalVariable7_13, globalVariable7_14, globalVariable7_15,
124      & globalVariable7_16, globalVariable7_1a, globalVariable7_2a,
125      & globalVariable7_3a, globalVariable7_4a, globalVariable7_5a,
126      & globalVariable7_6a, globalVariable7_7a, globalVariable7_8a,
127      & globalVariable7_9a, globalVariable7_10a,
128      & globalVariable7_11a, globalVariable7_12a,
129      & globalVariable7_13a, globalVariable7_14a,
130      & globalVariable7_15a, globalVariable7_16a, globalVariable8_1,
131      & globalVariable10_1, globalVariable10_2, globalVariable10_3,
132      & globalVariable10_4, globalVariable11_1, globalVariable11_2,
133      & globalVariable11_3, globalVariable11_4, globalVariable11_5,
134      & globalVariable12_1, globalVariable13_1, globalVariable14_1,
135      & globalVariable14_2, globalVariable15_1, globalVariable15_2,
136      & globalVariable15_3, globalVariable15_4, globalVariable16_1,
137      & globalVariable16_2, globalVariable16_3, globalVariable16_4,
138      & globalVariable16_5, globalVariable16_6, globalVariable16_7,
139      & globalVariable16_8, globalVariable16_9, globalVariable16_10,
140      & globalVariable17_1, globalVariable17_2, globalVariable18_1,
141      & globalVariable19_1, globalVariable19_2, globalVariable20_1,
142      & globalVariable25_1, globalVariable25_2, globalVariable25_3,
143      & globalVariable25_4, globalVariable25_5, globalVariable25_6,
144      & globalVariable25_7,
145 !       globalVariable26_1,
146      & globalVariable26_2,
147      & globalVariable26_3, globalVariable26_4, globalVariable26_5,
148      & globalVariable26_6, globalVariable26_7, globalVariable26_8,
149      & globalVariable26_9, globalVariable26_10, globalVariable26_11,
150      & globalVariable26_12, globalVariable26_13, globalVariable27_1,
151      & globalVariable27_5, globalVariable27_6, globalVariable27_7,
152      & globalVariable27_8, globalVariable29_1, globalVariable31_1,
153      & globalVariable31_2, globalVariable31_3, globalVariable31_4,
154      & globalVariable32_1, globalVariable32_2, globalVariable32_3,
155      & globalVariable32_4, 
156      & globalVariable36_1, globalVariable36_2, globalVariable36_3,
157      & globalVariable36_4, globalVariable36_5, globalVariable36_6,
158      & globalVariable36_7, globalVariable36_8, globalVariable36_9,
159      & globalVariable36_10,
160      & passedTest, runTest
161