http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59227
--- Comment #4 from Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> --- What does this output, when compiled with "-fno-range-check -ffree-line-length-none -O0"? $ cat test.f90 program test real(kind=16) :: x x = 12 print *, erfc_scaled(real(12,kind=16)) print *, erfc_scaled(x) end program test