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
|
#!/usr/bin/env bash
set -e
set -x
CC=clang
if [[ $1 == "" ]]; then
echo "Test local lfortran"
PATH="$(pwd):$PATH"
FC=lfortran
elif [[ $1 == "gfortran" ]]; then
echo "Test installed gfortran"
FC=gfortran
elif [[ $1 == "lfortran" ]]; then
echo "Test installed lfortran"
FC=lfortran
else
echo "Invalid option"
exit 1
fi
f=`pwd`/examples/expr2.f90
f1=`pwd`/tests/unordered_linking.f90
add_c=`pwd`/tests/add.c
if [[ "$(uname)" == "Linux" ]]; then
ASM_PATTERN="movq\|movl\|retq"
else
ASM_PATTERN="mov\|sp"
fi
cd $(mktemp -d)
$FC $f -o a.out
[ -f "a.out" ]
[ -x "a.out" ]
./a.out
cd $(mktemp -d)
$FC -c $f
[ -f "expr2.o" ]
[ ! -x "expr2.o" ]
$FC -o expr2 expr2.o
[ -f "expr2" ]
[ -x "expr2" ]
./expr2
cd $(mktemp -d)
$FC -o xx1 -c $f
[ -f "xx1" ]
[ ! -x "xx1" ]
$FC -o expr2 xx1
[ -f "expr2" ]
[ -x "expr2" ]
./expr2
cd $(mktemp -d)
$FC -o xx1 $f
[ -f "xx1" ]
[ -x "xx1" ]
./xx1
cd $(mktemp -d)
$FC -S $f
[ -f "expr2.s" ]
grep $ASM_PATTERN expr2.s
cd $(mktemp -d)
$FC -S -c $f
[ -f "expr2.s" ]
grep $ASM_PATTERN expr2.s
cd $(mktemp -d)
$FC -S -o xx1 $f
[ -f "xx1" ]
grep $ASM_PATTERN xx1
cd $(mktemp -d)
$FC -S -o xx1 -c $f
[ -f "xx1" ]
grep $ASM_PATTERN xx1
cd $(mktemp -d)
echo "Testing multiple file orders"
$CC -c $add_c -o add.o
$FC $f1 add.o -o a.out
[ -f "a.out" ]
[ -x "a.out" ]
./a.out
echo "Reverse the order of f1 and add.o"
$CC -c $add_c -o add.o
$FC add.o $f1 -o a.out
[ -f "a.out" ]
[ -x "a.out" ]
./a.out
echo "Compile and run f1 and add_c together"
$FC $f1 $add_c -o a.out
[ -f "a.out" ]
[ -x "a.out" ]
./a.out
cd $(mktemp -d)
cd $(mktemp -d)
echo "Testing incorrect usage"
! $FC nonexistentfile.f90 # ensure this fails
cd $(mktemp -d)
$FC -c $f1
[ -f "unordered_linking.o" ]
[ ! -x "unordered_linking.o" ]
cd $(mktemp -d)
echo "Testing invalid command-line usage"
! $FC -invalidflag $f1 2>&1 | grep "unrecognized command line option"
echo "All tests succeeded"
|
