Update copyright to LGPL on all files
[dyninst.git] / testsuite / src / dyninst / test1_16F_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_16f_init_globals
55 #include "test1_16F_common.h"
56
57         test1_16_globalVariable16_1 = 0
58         test1_16_globalVariable16_2 = 0
59         test1_16_globalVariable16_3 = 0
60         test1_16_globalVariable16_4 = 0
61         test1_16_globalVariable16_5 = 0
62         test1_16_globalVariable16_6 = 0
63         test1_16_globalVariable16_7 = 0
64         test1_16_globalVariable16_8 = 0
65         test1_16_globalVariable16_9 = 0
66         test1_16_globalVariable16_10 = 0
67         END
68
69 !------------------------------------------------------------------------------
70
71         SUBROUTINE test1_16_func1
72 #include "test1_16F_common.h"
73         LOGICAL failed
74
75         failed = .false.
76
77         CALL test1_16_func2
78         if (test1_16_globalVariable16_1 .ne. 1 .or. test1_16_globalVariable16_2 .ne. 0) then
79                 print *, '**Failed test #16 in spot 1 (if-else)'
80                 if (test1_16_globalVariable16_1 .ne. 1) then
81                         print *, '    True clause of first if should have been',
82      & ' executed but was not'
83                 endif
84                 if (test1_16_globalVariable16_2 .ne. 0) then
85                         print *, '    False clause of first if should not have',
86      & ' been executed but was'
87                 endif
88                 failed = .true.
89         endif
90
91         CALL test1_16_func3
92         if (test1_16_globalVariable16_3 .ne. 0 .or. test1_16_globalVariable16_4 .ne. 1) then
93                 print *, '**Failed test #16 (if-else)'
94                 if (test1_16_globalVariable16_3 .ne. 1) then
95                         print *, '    True clause of second if should not have',
96      & ' been executed but was'
97                 endif
98                 if (test1_16_globalVariable16_4 .ne. 0) then
99                         print *, '    False clause of second if should have',
100      & ' been executed but was not'
101                 endif
102                 failed = .true.
103         endif
104
105         CALL test1_16_func4
106         if (test1_16_globalVariable16_5 .ne. 0 .or. test1_16_globalVariable16_6 .ne. 1
107      & .or. test1_16_globalVariable16_7 .ne. 0
108      & .or. test1_16_globalVariable16_8 .ne. 1
109      & .or. test1_16_globalVariable16_9 .ne. 0
110      & .or. test1_16_globalVariable16_10 .ne. 1)
111      & then
112                         print *, '    failed large if clauses tests'
113                         failed = .true.
114         endif
115
116         if (failed .eqv. .false.) then
117                 passedTest = 1
118         endif
119         END
120
121 !------------------------------------------------------------------------------
122
123         SUBROUTINE test1_16_func2
124         INTEGER foo = 0
125         END
126
127 !------------------------------------------------------------------------------
128
129         SUBROUTINE test1_16_func3
130         INTEGER foo = 0
131         END
132
133 !------------------------------------------------------------------------------
134
135         SUBROUTINE test1_16_func4
136         INTEGER foo = 0
137         END
138
139 !------------------------------------------------------------------------------