!This file is machine generated.
+
+
+
+#include "config.h"
+#include "kinds.inc"
+#include "c99_protos.inc"
+
+#if defined (HAVE_GFC_REAL_4)
+#ifdef HAVE_TRUNCF
+
elemental function specific__aint_r4 (parm)
real (kind=4), intent (in) :: parm
real (kind=4) :: specific__aint_r4
specific__aint_r4 = aint (parm)
end function
+
+#endif
+#endif