This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [patch, libgfortran] PR77393 [7 Regression] Revision r237735 changed the behavior of F0.0


On Aug 31 2016, Jerry DeLisle <jvdelisle@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, schwab@suse.de
GPG Key fingerprint = 0196 BAD8 1CE9 1970 F4BE  1748 E4D4 88E3 0EEA B9D7
"And now for something completely different."


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]