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