On 09/01/2016 03:25 AM, Andreas Schwab wrote:
> 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.
>
Oh dang, thats right. I can fix that sometime today.
Thanks for report
Jerry
