1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
#!/bin/csh -f
#
# PDTEST - test PDB
#
set System = `../manager/system-id`
set BinDir = ../dev/$System/bin
set ERROR = "FALSE"
set FAIL = "NO"
set xstatus = 0
source ../manager/env-$System
if (-e ../dev/$System/include/pdb.h) then
touch test.error
rm -f pdtest.debug
echo `../manager/pwhich pact` >& pdtest.debug
echo `../manager/pwhich cc` >>& pdtest.debug
echo "BinDir = $BinDir" >>& pdtest.debug
echo ""
echo "PDB TEST..."
echo -n " Compiling PDB tests ....."
pact Cstd >& test.error
if ($status != 0) then
echo ""
cat test.error
echo " Can't build PDB Test Programs"
set ERROR = "TRUE"
else
rm test.error
echo " DONE"
echo ""
echo -n " PDB Master Test ....."
$BinDir/pdbtst
if ($status != 0) then
echo " PDB Master Test ................ FAILED "
set ERROR = "TRUE"
else
echo " PDB Master Test ................ PASSED "
endif
echo ""
echo -n " PDB Net Test ........"
$BinDir/pdntst
if ($status != 0) then
echo " PDB Net Test ................... FAILED "
set ERROR = "TRUE"
else
echo " PDB Net Test ................... PASSED "
endif
echo ""
echo -n " PDB Attribute Test ....."
$BinDir/pdatst
if ($status != 0) then
echo ""
echo " PDB Attribute Test ............. FAILED"
set ERROR = "TRUE"
else
echo "........ PASSED"
endif
rm *.db? *.rs?
echo ""
echo -n " PDB FORTRAN Interface Test ....."
set FAIL = "NO"
../manager/pwhich f77 >& /dev/null
if ($status == 0) then
pact Fstd >& test.error
if ($status != 0) then
# most likely cause is the gcc and f77 dispute over builtin_saveregs
echo ""
cat test.error
echo " Cannot build PDB FORTRAN Test Program"
rm -f $BinDir/pdftst
set FAIL = "NO"
else
$BinDir/pdftst >& test.error
if ($status != 0) then
echo ""
cat test.error
echo " Fortran Test Error"
set FAIL = "YES"
endif
endif
if ($FAIL == "YES") then
echo " PDB FORTRAN Interface Test ..... FAILED"
set ERROR = "TRUE"
else
echo " PASSED"
endif
rm test.error
endif
endif
echo ""
if ($ERROR == "TRUE") then
echo ""
echo "Debug:"
cat pdtest.debug
echo ""
echo "PDB TEST...FAILED"
else
echo "PDB TEST...PASSED"
endif
echo ""
echo " --------------------------------------------------------"
endif
set xstatus = 0
if ($ERROR == "TRUE") then
set xstatus = 1
endif
exit($xstatus)
|
