[Shootout-list] fortran90 tests

[Simon Geard]

This is a multi-part message in MIME format.
--------------080902050907000303040501
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

Brent Fulgham wrote:

>On Monday 06 December 2004 12:30, Simon Geard wrote:
>  
>
>>I have written 11 of the test programs for fortran90 and tested them on
>>Linux (Mandrake10.0) and winxp/cygwin. How do I get them included in the
>>shootout? How do I find out what the current tests are since many of
>>them seem to have deprecated evan as I was writing them!?
>>    
>>
>
>Thanks for this effort.  Unfortunately, the formatting on most of the output 
>was incorrect, so the tests fail.  Have a look at Ackermann for example -- 
>it's just a matter of getting the spacing and significant digits shown 
>properly.  I didn't have time to review what Fortran's formatting code looks 
>like, so I'm afraid I left it as "errors" for the time being.
>
>Thanks,
>
>-Brent
>  
>

I have been through all the tests I think are working ok and fixed the 
output - files attached. The results are as follows:

[simon@fawkes f90]$ make test
ifort -O3 -static-libcxa -o ackerman ackerman.f90
ifort -O3 -static-libcxa -o array array.f90
ifort -O3 -static-libcxa -o fibonacci fibonacci.f90
ifort -O3 -static-libcxa -o heapSort heapSort.f90
ifort -O3 -static-libcxa -o matrix matrix.f90
ifort -O3 -static-libcxa -o nestedLoop nestedLoop.f90
ifort -O3 -static-libcxa -o nsieve nsieve.f90
ifort -O3 -static-libcxa -o statistics statistics.f90
ifort -O3 -static-libcxa -o random random.f90
ifort -O3 -static-libcxa -o takfp takfp.f90
ifort -O3 -static-libcxa -o fannkuch fannkuch.f90
./ackerman 10
Ack(3,10): 8189
./fannkuch 9
Pfannkuchen(9) = 30
./fibonacci 32
3524578
./heapSort 1000
0.9990640718
./matrix 600
270165 1061760 1453695 1856025
./nestedLoop 16
16777216
./nsieve 2
Primes up to    40000 =     4203
Primes up to    20000 =     2262
Primes up to    10000 =     1229
./random 1000
8.163294467
./statistics 200 < statisticsData
n:                  500
median:             250.500000
mean:               250.500000
average-deviation:  125.000000
standard-deviation: 144.481833
variance:           20875.000000
skew:               0.000000
kurtosis:           -1.207202
./takfp 10
11.0
[simon@fawkes f90]$


Please could you let me know if any of these is faulty and if so what 
the correct output should be.

Thanks,

Simon


--------------080902050907000303040501
Content-Type: application/octet-stream;
 name="shootout_f90.tgz"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
 filename="shootout_f90.tgz"

H4sIAPgax0EAA+0ca2/jNrKfDfQ/MEUBS47sSPIrCZoF9vawvcW16eJ6rw8FDootJ1xbkivJ
u/YW/e83M3yIkqzEm268OZwIRJbI4XCGHM5whmQWQRwvN7O7weLC/eqJkgtpOh6L34n49UYj
+oU0mXrDrzzXm3hjb+x7UO4Nx5DFnowgM22yPEgZ+yrjURLfCxem2T3lkhn9+z+STthrKQEs
mM3CLGOLTTzLeRIzHq1XYRTGeYCfX3dO2M/YR+z7MEjnDvPOPP/MHUE+Fv1pw1dzHt8yHi+S
AeZclZIE+4HHmy1jfbbJEDi/C9mbOA9X7HWS5mkQX7hslkRrvgrTS1lFJ74AGLYwBJb1fxqy
foYEzvorfjPbBqyfaBCJ4F88/vdbbPMVYA5+Zf/k2SbQLbLJYDKrNoW4Sw2drXi8xOfNOsjv
Lr+ZX/7yNk1u0yBir4HY7Jcf+SxNsmSRK/Q/55s5T36ZLy7Of4Fq38gmXu1uP/AYiLm9GGtW
q81jWZ3PgrFBuA1FnZNvv/l7sAxZwNZhGm3EULFkwX7znMFg4MS/Owy6jYXbAEfzkv02cnzH
c8bO8PcBo6o4BgueZjkLxXA77C5MQzZyWBDPWRq+B8EXYEk6D1PEXtQZqVoZ4B4DZt8ZEe6/
heswyAGSZ2wT53xVb4hBUcA8h2XA2oqv1ygSH5K4m7PZXRDfAlvxDhBAbpSkSPzQkeQDW79R
S+oD8/WHB69YOgY6XiXQOrUdb6IbQT42lkk2xwP250SQiR0VrFYsPjF7M1P9MAP2CVEUbHm0
iaoIWRyG83Au0MQ7Ewd0NdSbJfG7cJZvoFVoLb9T3aPwzYhU7JT1Ok0gL8gB3c2Oxb1VcmvF
NvtwF8YsZrdJCPUTnGs85vluQJJAj9cvr6//+o9XfyE0MQtubmAAuRALJAzp/x4Ig7IPyM9b
JVNh7MD4snUQz0AqgGmQ0iAOoOEdNqXHRwEMvikafZWk0D05Szb5epOza3bFpkDAZQFhNGNN
bSj3JkVhE47zZhzniMP3H8Zx0YzjAnEM3YdxeG4zEs8lLOdfd77urKVGKPQPIyXKZzxncRKH
lAHq7hakhgYbetlBMcICEPk0mOVhaq3C+AoYDNLb90YNh805zJoMRtK6tB2U1GQW5MHNKmSX
l2wOrxI65QA1Q7FCqgAzCvVtCHbu1vIcRGtjdhoGcwu/nJ6tiJBIQwvRWZBp2xIHyeYVc/ED
C+HdOmMWd/iV5yAgO7PZCfsR7ClDk5qzDzy/I3nLIkAbQr6YMIQBhBfqLYDhJOXBiprCAlY0
BfRbopfo+RrnGNFla0jJ2HW4zd+CUItSLAxhxs4TfKPWwhJftsr/kHLI6jldy7cCh7u23bVZ
1xzeLrLmdHGMu4IM7A6YyHkAnSy6BsRlk2b8fajHVptQgz8b4LLNKrf4QpKvxxVfYigAGBjI
WJYumBWDEWWejZ0oc0UBZIrPcJWF5YK4Z7TZ92RT2B18oTqmTp5g5ASUtlD2qDnSNNhhbra5
SWEy8DhUtqDoxEbh1CxBTdsUz701Mv5RIiVYUEzLEizj9AlqGUQ7ZzBgghLUR12nQA0KDiXC
AtG6NHDqHkLEFsfBJPEuQPr81OwqgUd8S1lXNGFxvUdU/zUaG9KmpkUwVYEej6qcH9bFf6B/
8U32hsgoKFBzncl5pETMok4EofyORDPc8lwX03xUQiLgLiW4MQqlNoyPUy3VevKWpLUAVd39
fQg6BeZ+tWONAdqrHf6A2GIm6Ozl1mGhw2bwOoPfPFo77FqQhYS95kD4CnQrar0lywb5QIjc
EvpNvmmJQxNTjJDIW27N/idded33SuNAWLjGhxJc0RQKD9c5hR4oerlEs1bVksZ3NnuhKJfV
1OxZbmXOjEPWcmsQu9yeAr17qX0BCAawnhowC+thRTZIUtk9xM4s3MMINcJLOZoSbh/E4M8f
grUeBVzSaR4FBAxijTf1pQpm3CyYkS6BekUjSoPqMWawDBdf16q/zFkiGzj1Lq/VFNmjZgwp
xqawtL7YeJT/lwfLxfopnf+vHvT/vfFoKv3/8dibTtH/d4eT1v8/RjpBJ3CxbvL6q07/VDj9
nZOay1/z+AnmU/x9qqCT8Pa1eDa4+lROFQ/w8ssNINIC/R938An7Xve+3C6WGGxJHtClBzg1
qwVfFfdBrNlXvXPG4uJdLCtrDoQvHIjO/vV/bflPGYgIFVqwtIa92PHhL7ZL6+SFO/BwkSwb
1SvhDtljdHKr4pRn4WpRWiVLujUINgfmdOewj3qRPIdMm7ShgK4udyS8Xinv2IsrthVmQ9kC
xAHcfNQr5UoBtktt972BO3ednfPRdjBjJzM+OluR8VFmbJ2dbRsL6uoKBWAhq6SexUA+Tjcf
I8HcmCfR0xqAh/T/ZDpW+n849kn/+57b6v9jJFixkAQ8EP1tCP4ezQ4UYtpgCATA4y2B0cBx
TUGVM8WKNAjaIkgG6yZBuzJrUP9RmAsf5c2PGCUYXlxMzpthXlLoajpthniFYbaL8XTYFKDq
lDwjDJaA02EYKsjMDrVBm6gjQkNLEVIS+hq9RKgoxNTyXBdVsa1jPJ2yffK8wQUaqMywTaxm
cjQ+ZkXB9n2wus/WCIiy25gF7ynqtgoytJgjv0Pl8jNK5ha99rCPT6EbHRgQ0UbR9JXEDFAE
fAYwnapJ0eAlqyKF4TPMf5pIGcyl7OlswEP7f5OxXv+PphMP9P8IPIBW/x8jgV7XEvDMbUBZ
VBvsQAH0eFtQaei49mAflyZb0i6cnHwbX7JaGrsuFkXhnAeVcn/sDsYkmwKiWl6FAA2XBrfh
f+Zq/wjAPX88cDUEEBXPQRRMEJjXg9G5dz4cIsT7IAU6ZqHZku+eT0tYluGHKiWuUb7cpHmS
8cyEgfW47059F9SuNpDGyDcaSRaLHZeUNiczxzRVAXABip2eQDe8LqF8Ay/YV/gEmc9wt9KH
vyH8jR42igds2jjsZrNYNJrgG6iwxPAg2Iux5x9qSyWHkK9e5Y4KWFaZYXdkzD8Q25oU6Ybp
rYYVCFpv8tqmkCaIXKEY45RktYW1xu8YQ7kdOXNxF+MFMyPQpo9W4MZOMAPVtgbBEhl/03nV
HZ06PqLV7xFGxGBilDF92e81jAQuCrSfx2QH95yeg7lXuPEnNsmMtYiHKizOQdGFHdUXfeqL
e/ksc7iHt8q2HFUqM1Ejn8YW9BRpdILVgpCDSGbFSssUFkgo7YCXpoWVbWTY3D6TY5Z5OOID
V375pa9h6WtkfskodjHyhAgepyy4yXR8uE/tF0NFDcDjVIeQ+wTQ6/kFDDYLjzrMsIBBYuBR
hxkVI62EGFUBEaeYBn1AZJzRnppkTwL9muYWlKvcJdHSi88sgu3B01eiB9qEqAA0PagCPCDD
Q9Xvc5yipLn1wBdr3BP2k9iRxqkqoiRZaelLG5i4f7nPLnSp4xUwLLYAbp+R6JKe2wNatxZd
oRhrsNJu9E27AbDYpzVYpWpM4K5QwhXeFp4/mBB7+2xKl1R2tcq5rLHPwmAry2qFC1lhn8np
kjGAGe7h9mAU5ESUCzXKUbCqq1EZ0E/YzmuCNnUpY2pDT/gfyS0H63A/dBRky8NxR3HJ9SHz
qTLUQQMeg+oRHlBc2syiLGxPnhYY5OkmHIgjA3hggMrlJiSW971Kmeg9Q4/AGhTXgqTQ+mCt
Vjs6doNHVOaJccToLlgttBlSuufMP/WURgC+cLoR6USsg3RqxVPZKgZo3MTUlQFU5QHIYBGs
snBg7DrpwCS6grED8/wKeCjbPoO3cU9slwKF9im9iVfVpBm91NVIQUtggDzz741NimqdTmfP
vjMQGX5OCd2z0tEiqhqHnof1FKxI4MmpRArLdq49Y1OIcHeSxqucr60edQRCXSIK2RU08EVL
9cF1q2MmRaUiwqqONB22PBBQfCtJMzBhpxacILikKSzRbNcGCup1St6+sbL97P4fDFj4Pvyi
8V/fm47I/3fHPjwnFP91R63/f4wE7qcQgYec/cmRvf1CMBs8fQFgVlVtgRt9WXesqwg1Bu1B
qu973EeMb0b3uH17DPAeZbhYBbefGBXFcCG4Mz08J9fzyDc2lB8htCK7vFn30nlz7uADFzWs
+zbFdT/brNFYdp3I6dKpNqDSihzCYJst4ZE8WMAWrX1WxP5nQ1x2flSuuSSr2TuBgEnYkhGr
hH6bVlWXdjGOldWRPNi57BT2xHciZUbESJHtEYuhqtnQBy33VsclhUJR8aSlP8dPgYZI2VSd
RKVldbUikun7MJMI8au9+ZI/XLgmDDtUQVfNGRSVrZmaZc94U/T/KMVhlofzH5LkCQ8BPXj+
ZzzU+7++N8T4v+tPW/t/jHTCrrUEHBr4Hx57KVCS0ablgAZ6fOC/0tBxA/9VLk2WKqeDDF6b
1ypgnzC2DAYJDBedVl04YgGzvXJrS5hPPC6EixLI3OroLwvMPVv4vjG/RdaskiVy5/VcURDu
LRBli6YyJojaFo7+PWZuf2Ylx/zU7/qlWLuI6Nu2YuyKkXqe5i4K8pRvv+z5n/HEU/rfn3oj
8v/89v7nUdIJ+5Ek4Lnq/kI+G/S+AHi8zjcaOK6+NzlTbFT0vOTt0DM/kdwmHLqdvWE5Knfo
KbwbDzwFH/5S2g6q3HAgY1GzEyNzh1NfNMujzeoTTIfcF9xEMipKb+BkoJPoUWQzuwvWoZUl
m3QWXhX3zIj2nuDgDPxqAoNyg7MzcoIj3DaKvE79OBEyS2E5pNmCLoh8e79CH4JKdwJbbqtg
PeDJs8EJBVcUv0bO0PgaOiPja+yM7ZIlkGP53KzAXRisMaL+Be//D6eer/W/75P+H7vt+Z+j
pFb/P2P9rybnwRbgCU59HmBq1LHJe2OeQbo71MacP6mNob30GcDnxT1XvKd5LU9VghnYAM2Z
GV8F4sVlaMxMd7RbaRmHUulIqr4JfSZPX+DwsUyMH1F9hx8W+WCAxa4eXfUHHpka1VoltCmq
HHKq1YoeOtJ6wIFWLG48z8oaDrRWjrOyajSwOM7aKV3TlD3jwBjcG5CNS0w9cHkzLW1QSpl7
B4CAdmUgYmkBKcWNZ3eLXJ7pxYuH+AnkqcMfHM9xxDJCa8ZmV+yFurBtuJSIYtU3PVJoEdc5
gbXSG4zmHq8JwVPbzKYMUeKZBUQST0utIEWYf7WHJoHLI1RpUCkI801qApvHoKpfGPldqY93
urNWTkFeyb9Got5BNyEbeHu4VvQd8iLuiAKF7/BKKP7q+61lWrHFdyVvv0yeRIvdKfDsxZIG
IiZPAOUi5O/dvjbNCHtl8FRPpGbsfG8/Fl2jScDRUMH1yj1QmiblCIO2EY+z/wt+k8TBbMaf
cAH4oP/v6/Pf3nRK+7+T0bhd/x0j4b1vKQHPdQlYEtGmf/mkYB6/ECw3c9y1YIVFg5/KirDg
sznwKw4H7l9afXqY17gXio2LhUk97tl8IXSffNUvhdb/dQo1ZvzXlOAmOWBpwBdWDIreLyt5
qk3Lv6qyViWiObDvoLHlu3/fcSqE6VTuehaD89y8/OZEy98vfv+f/P/xeDycTkbi/v+o3f87
SjphL8kBet5Xf7SUNqh/Kn+86i/QH1ftV9iSfFRUvuDtIHVPl1uW9/vTB5zVxMv1h1iIrvVm
hLpfHlHSjurWci/l4SEze2dky71Diuye4qFf1xFF4uDvTpa5lRIVz3Wdi4sLvdXIrwjCcR3D
+9mJ1TT9nLIt/OzfwivZMm/r8JETOJwOIAHBIqK7k2ehKg751i5/o3tu2gMxcl96ht+fgtmS
/hvgF4z/epNR8f9fvSHe/xyOpl6r/4+RQP9LCTh4+e+eed5Rlb8hok36X4L8ARNgNnJkK1Di
r2CmagcUj19g5Q9tW0OntvQ3/2viSwJR/y8Rr/E0uwR7RO4AjwCJABNn+ASQc//xTUc5BcyK
9tzAQAQYyDst/ALhQDSCEg1gaphXv5hRBVH09r3SxQx8q3oTAFp1JvRwP3MD0qY2talNbWpT
m9rUpja1qU1talOb2tSmNrWpTW1qU5va1KY2tenZpP8Cvjz1cgB4AAA=
--------------080902050907000303040501--