[Bug fortran/54159] Fortran quad precision rounding seemingly nonsensical

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54159

--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-08-02 
10:37:56 UTC ---
Actually, you can also change the rounding mode by calling the following C
program from your Fortran program.

/*************************/
#include <fenv.h>

void
set_round (void)
{ /* FE_TONEAREST, FE_UPWARD, FE_DOWNWARD, FE_TOWARDZERO.  */
  fesetround (FE_DOWNWARD);
}
/*************************/

!--------------------
   interface
     subroutine set_round() bind(C)
     end subroutine
   end interface

   call set_round()
!--------------------