|
|
1.1 root 1: set -x
2: rm -f cport.a dport.a fport.a
3:
4: for i in frame app1 app2 blas de fft lin linopt nl2opt nl3opt nl4opt post quad root sparse spfns util; do
5: /usr/dmg/bin/627 /n/pyxis/usr/dmg/swift/port3/p3src.$i | fsplit -i
6: if [ $i = frame ]; then
7: ed <<\!
8: e r1mach.f
9: /VAX/;.+2,.+6s/^C//
10: w
11: e d1mach.f
12: /VAX/;.+2,.+6s/^C//
13: w
14: e i1mach.f
15: /VAX/;.+2,+17s/^C//
16: -10s/ 4 / 1 /
17: wq
18: !
19: fi
20: f2c -ec *.f || { echo $i failed | mail cwf; exit 1 }
21: lcc -B/usr/src/cmd/lcc/gen2/vax-v9/ -c `ls *.c | sed /_com/d` || { echo $i failed | mail cwf; exit 1 }
22: ar q cport.a *.o
23: lcc -B/usr/src/cmd/lcc/gen2/vax-v9/ -c -g `ls *.c | sed /_com/d` || { echo $i failed | mail cwf; exit 1 }
24: ar q dport.a *.o
25: f77 -c *.f
26: ar q fport.a *.o
27: rm `ls *.c | sed /_com/d` *.[fo]
28: done
29: lcc -B/usr/src/cmd/lcc/gen2/vax-v9/ -c -g *_com.c
30: ar q cport.a *.o
31: ar q dport.a *.o
32: rm *_com.*
33: ranlib cport.a
34: ranlib dport.a
35: ranlib fport.a
36:
37: for i in LGEA LGEB LLZA LYMB PREA PRSA PRSF PRSJ \
38: APNR BURA BURB CDEX CDLG CPLA CSPA CSPE CSPG CSPQ DDEA DESA EBEA ERRK \
39: EVAA EXTR FFTA FFTC FMTR LBAA LBAB LBAF LBAK LBAN LBAP LGEF LGEH LGEL \
40: LGEM LNAB LPSA LPSB LPSF LPSG LPSK LPSM LRPA LRPB LRPE LRPF LRPG LSFA \
41: LYMA LYMK LYMP MFTE MFTF MFTG MLLR MNNA NLSA NLSB NLSJ NLSK NLSP NLSR \
42: NMSK NP2A NP2B NP2E NP2F NSFA NSNM NTLE NTLF NTLH NTLK NTLM NTLP NTLR \
43: NTLT NTLU PDEA PDEW PRS1 PRSZ QBLA QBLC QBLG QGSG QGSH QGSJ QGSM QGSP \
44: QGSR QGST QODD QPRA RANC RNRM RPAD SDBA SPLF VDSA VDSB VDSE XKHD XKHI \
45: XKTH ZERA ZONA ZONB; do
46: run1 $i examps e || exit 1
47: done
48:
49: for i in ERR1 ERR2 ERR3 ERRK EXTR GAMA GMAD LGAC LGAD LGEA LLZA LRAD LRPA LTQD \
50: LTSQ LYAD LYMA LYRC LYSC MACH MFED MFTE MNTB PLYA PLYC PRAC PRAD PRSA \
51: QBGD QBLG QGGD QGSG QPAD QPRA RNRM SDBA SPLE STK1 STK2 SVAD SVBD SVCD \
52: SVDA SVDB SVDC THYP VDAD VDBD VDED; do
53: run1 $i tests t || exit 1
54: done
55:
56: echo port passed | mail cwf
57: rm a.out [cdf]port.a zap
58: exit 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.