------- Comment #5 from jvdelisle at gcc dot gnu dot org 2007-02-13 05:41
-------
I modified cpu_time_4 to just return some dummy values, and experimented a bit
with the test case. When I commented out the print statement, the exception
went away.
Here is a reduced test case.
program test2
real :: dog
dog = 1.0
print *, dog
end program test2
The exception is occurring in the print statement. Nothing to do with time.
(gdb) r
Starting program: /home/jerry/prs/pr30780/a.out
Program received signal SIGFPE, Arithmetic exception.
0x00002aaaaab2c3d9 in write_float (dtp=0x7fff52698b00, f=0x7fff52698a50,
source=<value optimized out>, len=<value optimized out>)
at ../../../gcc43/libgfortran/io/write.c:366
366 if ((m > 0.0 && m < 0.1 - 0.05 / exp_d) || (m >= exp_d - 0.5 ) ||
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30780
