From bug-request at octave dot org Tue Mar 21 10:54:33 2006 Subject: Re: try catch block not working after error in FORTRAN code in 2.9.4 From: "Keith Goodman" To: "Wolfgang Lehrach" Cc: bug at octave dot org Date: Tue, 21 Mar 2006 08:52:55 -0800 It looks like neither gamma nor gammaln check for special cases like Inf, -Inf, and 0, -1, -2, -3, ... On 3/21/06, Wolfgang Lehrach wrote: > Bug report for Octave 2.9.4 configured for i686-pc-linux-gnu > > Description: > ----------- > > try catch end is buggy after a FORTRAN error has been thrown, see > repeat-by section. > > Repeat-By: > --------- > For copying and pasting, run the following: > > try P=5;error('d'); catch P = 6;end;P > gammaln(0); % Throw an error > try P=1;error('d'); catch P = 2;end;P > > This is the result of running the code: > > octave:1> try P=5;error('d'); catch P = 6;end;P > P = 6 > octave:2> gammaln(0); > ***MESSAGE FROM ROUTINE DGAMMA IN LIBRARY SLATEC. > ***FATAL ERROR, PROG ABORTED, TRACEBACK REQUESTED > * X IS 0 > * ERROR NUMBER = 4 > * > ***END OF MESSAGE > > ***JOB ABORT DUE TO FATAL ERROR. > 0 ERROR MESSAGE SUMMARY > LIBRARY SUBROUTINE MESSAGE START NERR LEVEL > COUNT > SLATEC DGAMMA X IS 0 4 2 > 1 > > error: exception encountered in Fortran subroutine dlgams_ > octave:2> try P=1;error('d'); catch P = 2;end;P > P = 1 > octave:3> > > That last result is wrong - it should be P = 2. It was performing > correctly earlier. > > > Configuration (please do not edit this section): > ----------------------------------------------- > > uname output: Linux cloud.inf.ed.ac.uk 2.6.12-1.1381_FC3 #1 Fri Oct > 21 03:46:55 EDT 2005 i686 i686 i386 GNU/Linux > configure opts: '--prefix=/home/s0239540/local' > Fortran compiler: g77 > FFLAGS: -O -mieee-fp > F2C: > F2CFLAGS: > FLIBS: -L/usr/lib/gcc/i386-redhat-linux/3.4.4 - > L/usr/lib/gcc/i386-redhat-linux/3.4.4/../../.. -lz -lfrtbegin -lg2c -lm > -lgcc_s > CPPFLAGS: > INCFLAGS: -I. -I. -I./liboctave -I./src -I./libcruft/misc > C compiler: gcc, version 3.4.4 20050721 (Red Hat 3.4.4-2) > CFLAGS: -g -O2 > CPICFLAG: -fPIC > C++ compiler: g++, version 3.4.4 > CXXFLAGS: -g -O2 > CXXPICFLAG: -fPIC > LD_CXX: g++ > LDFLAGS: > LIBFLAGS: -L. > RLD_FLAG: -Wl,-rpath -Wl,/home/s0239540/local/lib/octave-2.9.4 > BLAS_LIBS: -llapack -lblas > FFTW_LIBS: > LIBS: -lreadline -lncurses -ldl -lz -lm > LEXLIB: > LIBPLPLOT: > LIBDLFCN: > LIBGLOB: > SED: /bin/sed > DEFS: > > -DPACKAGE_NAME="" -DPACKAGE_TARNAME="" -DPACKAGE_VERSION="" > -DPACKAGE_STRING="" -DPACKAGE_BUGREPORT="" -DOCTAVE_SOURCE=1 > -D_GNU_SOURCE=1 -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 - > DHAVE_SYS_STAT_H=1 > -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 - > DHAVE_STRINGS_H=1 > -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DSEPCHAR=':' > -DSEPCHAR_STR=":" -D__NO_MATH_INLINES=1 - > DCXX_NEW_FRIEND_TEMPLATE_DECL=1 > -DCXX_ISO_COMPLIANT_LIBRARY=1 -DCXX_ABI=gnu_v3 -DHAVE_LIBM=1 > -DHAVE_ZLIB_H=1 -DHAVE_ZLIB=1 -DHAVE_IEEE754_DATA_FORMAT=1 > -DF77_FUNC(name,NAME)=name ## _ -DF77_FUNC_(name,NAME)=name ## __ > -DHAVE_BLAS=1 -DHAVE_GETHOSTNAME=1 -DHAVE_GETPWNAM=1 -DHAVE_DEV_T=1 > -DHAVE_INO_T=1 -DHAVE_NLINK_T=1 -DHAVE_NLINK_T=1 - > DHAVE_LONG_LONG_INT=1 > -DHAVE_UNSIGNED_LONG_LONG_INT=1 -DHAVE_SIGSET_T=1 - > DHAVE_SIG_ATOMIC_T=1 > -DSIZEOF_SHORT=2 -DSIZEOF_INT=4 -DSIZEOF_LONG=4 -DSIZEOF_LONG_LONG=8 > -DHAVE_ALLOCA_H=1 -DHAVE_ALLOCA=1 -DNPOS=std::string::npos > -DHAVE_PLACEMENT_DELETE=1 -DHAVE_DYNAMIC_AUTO_ARRAYS=1 - > DSTDC_HEADERS=1 > -DHAVE_DIRENT_H=1 -DTIME_WITH_SYS_TIME=1 -DHAVE_SYS_WAIT_H=1 > -DHAVE_ASSERT_H=1 -DHAVE_CURSES_H=1 -DHAVE_DLFCN_H=1 -DHAVE_FCNTL_H=1 > -DHAVE_FLOAT_H=1 -DHAVE_GRP_H=1 -DHAVE_LIMITS_H=1 -DHAVE_MEMORY_H=1 > -DHAVE_NCURSES_H=1 -DHAVE_POLL_H=1 -DHAVE_PWD_H=1 -DHAVE_STDLIB_H=1 > -DHAVE_STRING_H=1 -DHAVE_SYS_IOCTL_H=1 -DHAVE_SYS_PARAM_H=1 > -DHAVE_SYS_POLL_H=1 -DHAVE_SYS_RESOURCE_H=1 -DHAVE_SYS_SELECT_H=1 > -DHAVE_SYS_STAT_H=1 -DHAVE_SYS_TIME_H=1 -DHAVE_SYS_TIMES_H=1 > -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_UTSNAME_H=1 -DHAVE_TERMCAP_H=1 > -DHAVE_UNISTD_H=1 -DHAVE_SSTREAM=1 -DHAVE_TERMIO_H=1 -DHAVE_SGTTY_H=1 > -DHAVE_GLOB_H=1 -DHAVE_FNMATCH_H=1 -DHAVE_FNMATCH=1 -DHAVE_GLOB=1 > -DHAVE_ATEXIT=1 -DHAVE_BASENAME=1 -DHAVE_BCOPY=1 -DHAVE_BZERO=1 > -DHAVE_CANONICALIZE_FILE_NAME=1 -DHAVE_DUP2=1 -DHAVE_ENDGRENT=1 > -DHAVE_ENDPWENT=1 -DHAVE_EXECVP=1 -DHAVE_FCNTL=1 -DHAVE_FORK=1 > -DHAVE_GETCWD=1 -DHAVE_GETEGID=1 -DHAVE_GETEUID=1 -DHAVE_GETGID=1 > -DHAVE_GETGRENT=1 -DHAVE_GETGRGID=1 -DHAVE_GETGRNAM=1 > -DHAVE_GETPGRP=1 -DHAVE_GETPID=1 -DHAVE_GETPPID=1 -DHAVE_GETPWENT=1 > -DHAVE_GETPWUID=1 -DHAVE_GETTIMEOFDAY=1 -DHAVE_GETUID=1 -DHAVE_GETWD=1 > -DHAVE_KILL=1 -DHAVE_LINK=1 -DHAVE_LOCALTIME_R=1 -DHAVE_LSTAT=1 > -DHAVE_MEMMOVE=1 -DHAVE_MKDIR=1 -DHAVE_MKFIFO=1 -DHAVE_MKSTEMP=1 > -DHAVE_ON_EXIT=1 -DHAVE_PIPE=1 -DHAVE_POLL=1 -DHAVE_PUTENV=1 > -DHAVE_RAISE=1 -DHAVE_READLINK=1 -DHAVE_RENAME=1 -DHAVE_RINDEX=1 > -DHAVE_RMDIR=1 -DHAVE_ROUND=1 -DHAVE_SELECT=1 -DHAVE_SETGRENT=1 > -DHAVE_SETPWENT=1 -DHAVE_SETVBUF=1 -DHAVE_SIGACTION=1 - > DHAVE_SIGLONGJMP=1 > -DHAVE_SIGPENDING=1 -DHAVE_SIGPROCMASK=1 -DHAVE_SIGSUSPEND=1 - > DHAVE_STAT=1 > -DHAVE_STRCASECMP=1 -DHAVE_STRDUP=1 -DHAVE_STRERROR=1 - > DHAVE_STRFTIME=1 > -DHAVE_STRNCASECMP=1 -DHAVE_STRPTIME=1 -DHAVE_SYMLINK=1 - > DHAVE_TEMPNAM=1 > -DHAVE_UMASK=1 -DHAVE_UNLINK=1 -DHAVE_USLEEP=1 -DHAVE_VFPRINTF=1 > -DHAVE_VSPRINTF=1 -DHAVE_VSNPRINTF=1 -DHAVE_WAITPID=1 -DHAVE_LIBDL=1 > -DHAVE_DLOPEN=1 -DHAVE_DLSYM=1 -DHAVE_DLERROR=1 -DHAVE_DLCLOSE=1 > -DHAVE_DLOPEN_API=1 -DENABLE_DYNAMIC_LINKING=1 -DHAVE_TIMEVAL=1 > -DHAVE_FINITE=1 -DHAVE_ISNAN=1 -DHAVE_ISINF=1 -DHAVE_COPYSIGN=1 > -DHAVE_DECL_SIGNBIT=1 -DHAVE_ACOSH=1 -DHAVE_ASINH=1 -DHAVE_ATANH=1 > -DHAVE_ERF=1 -DHAVE_ERFC=1 -DHAVE_STRUCT_STAT_ST_BLKSIZE=1 > -DHAVE_STRUCT_STAT_ST_BLOCKS=1 -DHAVE_STRUCT_STAT_ST_RDEV=1 > -DHAVE_STRUCT_TM_TM_ZONE=1 -DHAVE_TM_ZONE=1 -DUSE_READLINE=1 > -DEXCEPTION_IN_MATH=1 -DRETSIGTYPE=void -DSYS_SIGLIST_DECLARED=1 > -DHAVE_SYS_SIGLIST=1 -DHAVE_POSIX_SIGNALS=1 -DHAVE_GETRUSAGE=1 > -DHAVE_TIMES=1 -DYYTEXT_POINTER=1 -DGNUPLOT_BINARY="gnuplot" > -DGNUPLOT_HAS_FRAMES=1 > > > > ------------------------------------------------------------- > Octave is freely available under the terms of the GNU GPL. > > Octave's home on the web: http://www.octave.org > How to fund new projects: http://www.octave.org/funding.html > Subscription information: http://www.octave.org/archive.html > ------------------------------------------------------------- > > ------------------------------------------------------------- Octave is freely available under the terms of the GNU GPL. Octave's home on the web: http://www.octave.org How to fund new projects: http://www.octave.org/funding.html Subscription information: http://www.octave.org/archive.html -------------------------------------------------------------