On Aug 31 2016, Jerry DeLisle <jvdeli...@charter.net> wrote:
> ! { dg-do run }
> ! PR77393
> program testbigf0 ! Can enormous numbers be printed with F0.0 format?
> implicit none
> character(10000) :: str
> write(str, "(f0.0)") -huge(1.0)
> if (len(trim(str)).lt.41) error stop "FAILED AT 9"
> write(str, "(f0.0)") -huge(1.0_8)
> if (len(trim(str)).lt.311) error stop "FAILED AT 9"
> write(str, "(f0.0)") -huge(1.0_10)
> if (len(trim(str)).lt.4935) error stop "FAILED AT 9"
> write(str, "(f0.10)") -huge(1.0_16)
> if (len(trim(str)).lt.4945) error stop "FAILED AT 11"
> end program testbigf0
FAIL: gfortran.dg/fmt_f0_2.f90 -O0 (test for excess errors)
Excess errors:
/daten/aranym/gcc/gcc-20160901/gcc/testsuite/gfortran.dg/fmt_f0_2.f90:12:36:
Error: Invalid real kind 16 at (1)
Andreas.
--
Andreas Schwab, SUSE Labs, sch...@suse.de
GPG Key fingerprint = 0196 BAD8 1CE9 1970 F4BE 1748 E4D4 88E3 0EEA B9D7
"And now for something completely different."
