|
|
1.1 root 1: set -x
2:
3: f2c </n/pyxis/usr/dmg/swift/port3/src/p3$2/$1.f >$1.c || { echo $1 failed | mail cwf; exit 1 }
4:
5: f77 /n/pyxis/usr/dmg/swift/port3/src/p3$2/$1.f fport.a
6: a.out <in/$1 >outf
7:
8: lcc -B/usr/src/cmd/lcc/gen2/vax-v9/ -c $1.c
9: f77 $1.o cport.a
10: a.out <in/$1 >outc
11: cmp outf outc || { echo $1 failed | mail cwf; exit 1 }
12:
13: lcc -B/usr/src/cmd/lcc/gen2/vax-v9/ -g -c $1.c
14: f77 $1.o dport.a
15: a.out <in/$1 >outd
16: cmp outf outd || { echo $1 failed | mail cwf; exit 1 }
17:
18: rm -f a.out $1.[fco] out[cdf]
19: exit 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.