?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
* function.c (purge_addressof): Use free_INSN_LIST_node instead of
[official-gcc.git] / libf2c / libF77 / c_abs.c
blob3fc4d7c0a6a76e91a12270e2c07868c48e0234ca
1 #include "f2c.h"
2
3 extern double f__cabs (double, double);
4
5 double
6 c_abs (complex * z)
7 {
8 return (f__cabs (z->r, z->i));
9 }
Mirror of the offical gcc git repository hosted at gcc.gnu.org