Remove old testsuite
[dyninst.git] / testsuite / src / dyninst / test1_25F_fortran.F
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 ! libdyninst validation suite test #1
43 ! author: Jon Beyer (6/1/01)
44 !       derived from a previous test by Jeff Hollingsworth
45
46 !------------------------------------------------------------------------------
47
48 ! AIX xlf90 does not insert underscores at end
49
50 #if !defined(XLF)
51 #define stop_process_ stop_process
52 #endif
53
54 #ifdef __GNUC__
55 #define AND iand
56 #define OR ior
57 #else
58 #define AND and
59 #define OR or
60 #endif
61
62 !------------------------------------------------------------------------------
63
64         SUBROUTINE test1_25f_init_globals
65 #include "test1_25F_common.h"
66
67         END
68
69 !------------------------------------------------------------------------------
70
71         SUBROUTINE func25_1
72
73 #include "test1_25F_common.h"
74         LOGICAL passed
75         passed = .true.
76         test1_25_globalVariable1 = 25000001
77 !       test1_25_globalVariable2 = (int *) 25000002
78         test1_25_globalVariable3 = 25000003
79         test1_25_globalVariable4 = 25000004
80         test1_25_globalVariable5 = 25000005
81         test1_25_globalVariable6 = -25000006
82         test1_25_globalVariable7 = 25000007
83
84         CALL test1_25_call1
85
86         if (test1_25_globalVariable3 .ne. test1_25_globalVariable1) then
87                 if (passed .eqv. .true.) then
88                         print *, '**Failed** test #25 (unary operators)'
89                 endif
90                 passed = .false.
91                 print *, '    test1_25_globalVariable2 = ', test1_25_globalVariable3,
92      & ', not ', test1_25_globalVariable1
93         endif
94
95         if (test1_25_globalVariable5 .ne. -1 * test1_25_globalVariable4) then
96                 if (passed .eqv. .true.) then
97                         print *, '**Failed** test #25 (unary operators)'
98                 endif
99                 passed = .false.
100                 print *, '    test1_25_globalVariable5 = ', test1_25_globalVariable5,
101      & ', not ', -1 * test1_25_globalVariable4
102         endif
103
104         if (test1_25_globalVariable7 .ne. -1 * test1_25_globalVariable6) then
105                 if (passed .eqv. .true.) then
106                         print *, '**Failed** test #25 (unary operators)'
107                 endif
108                 passed = .false.
109                 print *, '    test1_25_globalVariable7 = ', test1_25_globalVariable7,
110      & ', not ', -1 * test1_25_globalVariable6
111         endif
112
113         if (passed .eqv. .true.) then
114                 passedTest = 1
115         endif
116         END
117
118 !------------------------------------------------------------------------------
119
120         SUBROUTINE test1_25_call1
121 #include "test1_25F_common.h"
122         integer place
123
124         place = 23
125         END
126
127 !------------------------------------------------------------------------------