* functions. */
/*
- * GiNaC Copyright (C) 1999-2009 Johannes Gutenberg University Mainz, Germany
+ * GiNaC Copyright (C) 1999-2010 Johannes Gutenberg University Mainz, Germany
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
return _ex1_2*Pi;
// atan(y, 0), y real and negative -> -Pi/2
- if (y.info(info_flags::negative))
+ if (y.info(info_flags::real) && !y.is_zero())
return _ex_1_2*Pi;
}