[Plplot-cvs] SF.net SVN: plplot:[9848] trunk/examples/f95/x20f.f90

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

Revision: 9848
          http://plplot.svn.sourceforge.net/plplot/?rev=9848&view=rev
Author:   andrewross
Date:     2009-04-24 20:58:55 +0000 (Fri, 24 Apr 2009)

Log Message:
-----------
Revert part of previous change for f95 example 20. "exit" (the f90 command) is quite different to "call exit".

Modified Paths:
--------------
    trunk/examples/f95/x20f.f90

Modified: trunk/examples/f95/x20f.f90
===================================================================
--- trunk/examples/f95/x20f.f90	2009-04-24 19:59:27 UTC (rev 9847)
+++ trunk/examples/f95/x20f.f90	2009-04-24 20:58:55 UTC (rev 9848)
@@ -311,7 +311,7 @@
       open( 10, file = '_x20f_.bin', access = 'direct', recl = 1 )
       do i = 1,8
           write( 10, rec = 1, iostat = ierr ) string(1:i)
-          if ( ierr /= 0 ) call exit(1)
+          if ( ierr /= 0 ) exit
           bytes = i
       enddo
 


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