Mercurial > octave
diff libcruft/ranlib/getsd.f @ 10103:0e71ead7359d
Use CALL XSTOPX instead of STOP in Fortran ranlib routines
New call allows Octave's error handler to intercept otherwise
fatal errors in Fortran code
| author | Rik <rdrider0-list@yahoo.com> |
|---|---|
| date | Wed, 13 Jan 2010 22:22:46 -0800 |
| parents | df7c57a6639d |
| children |
line wrap: on
line diff
--- a/libcruft/ranlib/getsd.f Thu Jan 14 01:11:27 2010 -0500 +++ b/libcruft/ranlib/getsd.f Wed Jan 13 22:22:46 2010 -0800 @@ -62,7 +62,8 @@ IF (qrgnin()) GO TO 10 WRITE (*,*) ' GETSD called before random number generator ', + ' initialized -- abort!' - STOP ' GETSD called before random number generator initialized' + CALL XSTOPX + + (' GETSD called before random number generator initialized') 10 CALL getcgn(g) iseed1 = cg1(g)