[Plplot-cvs] SF.net SVN: plplot:[8633] trunk

[<and...@us...>]

Revision: 8633
          http://plplot.svn.sourceforge.net/plplot/?rev=8633&view=rev
Author:   andrewross
Date:     2008-08-12 11:37:16 +0000 (Tue, 12 Aug 2008)

Log Message:
-----------
Add example 26 to set of standard tests for f77. 

Fix missing space in the title labels in x26. Results now identical to 
C version. 

Modified Paths:
--------------
    trunk/examples/f77/x26f.fm4
    trunk/plplot_test/test_f77.sh.in

Modified: trunk/examples/f77/x26f.fm4
===================================================================
--- trunk/examples/f77/x26f.fm4	2008-08-12 06:58:28 UTC (rev 8632)
+++ trunk/examples/f77/x26f.fm4	2008-08-12 11:37:16 UTC (rev 8633)
@@ -101,8 +101,8 @@
 
       data (title_label(i) ,i=1,nolangs) /
      &    'Single Pole Low-Pass Filter',
-     &    'Однополюсный Низко-ЧастотныйФил\xD1
-     &\x8Cтр'/
+     &    'Однополюсный Низко-Частотный Фил
+     &ьтр'/
 
       data (line_label(i) ,i=1,nolangs) /
      &     '-20 dB/decade',

Modified: trunk/plplot_test/test_f77.sh.in
===================================================================
--- trunk/plplot_test/test_f77.sh.in	2008-08-12 06:58:28 UTC (rev 8632)
+++ trunk/plplot_test/test_f77.sh.in	2008-08-12 11:37:16 UTC (rev 8633)
@@ -49,7 +49,7 @@
 
 # Do the standard non-interactive examples.
 # skip 14 and 17 because they are interactive.
-  for index in 01 02 03 04 05 06 07 08 09 10 11 12 13 15 16 18 19 20 21 22 23 24 25 27 28 29 30 ; do
+  for index in 01 02 03 04 05 06 07 08 09 10 11 12 13 15 16 18 19 20 21 22 23 24 25 26 27 28 29 30 ; do
     $f77dir/x${index}f -dev $device -o ${OUTPUT_DIR}/x${index}f.$dsuffix $options 2> test.error
     status_code=$?
     cat test.error
@@ -88,7 +88,7 @@
 
 # Do the standard non-interactive examples.
 # skip 14 and 17 because they are interactive.
-  for index in 01 02 03 04 05 06 07 08 09 10 11 12 13 15 16 18 19 20 21 22 23 24 25 27 28 29 30 ; do
+  for index in 01 02 03 04 05 06 07 08 09 10 11 12 13 15 16 18 19 20 21 22 23 24 25 26 27 28 29 30 ; do
      $f77dir/x${index}f <<EOF 2> test.error
 $device
 ${OUTPUT_DIR}/x${index}f.$dsuffix


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.