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

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

Revision: 8618
          http://plplot.svn.sourceforge.net/plplot/?rev=8618&view=rev
Author:   andrewross
Date:     2008-08-11 07:06:35 +0000 (Mon, 11 Aug 2008)

Log Message:
-----------
Automatically build and test f77 examples 24 25 and 27. 

Fix illegal comment in example 25 which prevents compilation with 
gfortran.

Modified Paths:
--------------
    trunk/examples/f77/CMakeLists.txt
    trunk/examples/f77/x25f.fm4
    trunk/plplot_test/test_f77.sh.in

Modified: trunk/examples/f77/CMakeLists.txt
===================================================================
--- trunk/examples/f77/CMakeLists.txt	2008-08-11 04:31:20 UTC (rev 8617)
+++ trunk/examples/f77/CMakeLists.txt	2008-08-11 07:06:35 UTC (rev 8618)
@@ -45,6 +45,9 @@
 "21"
 "22"
 "23"
+"24"
+"25"
+"27"
 "28"
 "29"
 "30"

Modified: trunk/examples/f77/x25f.fm4
===================================================================
--- trunk/examples/f77/x25f.fm4	2008-08-11 04:31:20 UTC (rev 8617)
+++ trunk/examples/f77/x25f.fm4	2008-08-11 07:06:35 UTC (rev 8618)
@@ -81,7 +81,7 @@
               npts = 10
           endif
           if ( j .eq. 4 ) then
-/* Polygon 2: a square with punctures - reversed direction */
+C  Polygon 2: a square with punctures - reversed direction 
               x0(10) = -100 ; y0(10) = -100
               x0(9)  = -100 ; y0(9)  =  -80
               x0(8)  =   80 ; y0(8)  =    0

Modified: trunk/plplot_test/test_f77.sh.in
===================================================================
--- trunk/plplot_test/test_f77.sh.in	2008-08-11 04:31:20 UTC (rev 8617)
+++ trunk/plplot_test/test_f77.sh.in	2008-08-11 07:06:35 UTC (rev 8618)
@@ -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 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 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 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 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.