File: 357

package info (click to toggle)
pcp 7.1.0-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 252,748 kB
  • sloc: ansic: 1,483,656; sh: 182,366; xml: 160,462; cpp: 83,813; python: 24,980; perl: 18,327; yacc: 6,877; lex: 2,864; makefile: 2,738; awk: 165; fortran: 60; java: 52
file content (49 lines) | stat: -rwxr-xr-x 1,208 bytes parent folder | download | duplicates (5)
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
#! /bin/sh
# PCP QA Test No. 357
# Exercise __pmNumberStr()
#
# Copyright (c) 1995-2002 Silicon Graphics, Inc.  All Rights Reserved.
#

seq=`basename $0`
echo "QA output created by $seq"

# get standard filters
. ./common.product
. ./common.filter
. ./common.check

status=1	# failure is the default!
trap "rm -f $tmp.*; exit \$status" 0 1 2 3 15

for i in \
	0.4321 4.321 43.21 432.1 4321 43210 \
	0 \
	0.00001 0.0001 0.001 0.01 0.1 1.0 10.0 100.0 1000.0 10000.0 \
	1000000.0 10000000.0 100000000.0 1000000000.0 10000000000.0 \
	100000000000.0 1000000000000.0 10000000000000.0 \
	0.005 0.0051 \
	9.995 9.9951 \
	99.995 99.9951 \
	999.95 999.951 \
	999995           9999951 \
	9999500          99995100 \
	99995000         999951000 \
	999950000        9999510000 \
	9999500000       99995100000 \
	99995000000      999951000000 \
	999950000000     9999510000000 \
	9999500000000    99995100000000 \
	99995000000000   999951000000000 \
	999950000000000  9999510000000000 \
	9999500000000000 99995100000000000
do
    echo $i | $PCP_AWK_PROG '{printf("%18s = ", $1); }'
    src/numberstr $i
    echo -$i | $PCP_AWK_PROG '{printf("%18s = ", $1); }'
    src/numberstr -$i
done

# success, all done
status=0
exit