1! { dg-do run } 2! PR77393 3program testbigf0 ! Can enormous numbers be printed with F0.0 format? 4 use ISO_FORTRAN_ENV 5 implicit none 6 integer i 7 integer, parameter :: j(size(real_kinds)+4)=[REAL_KINDS, [4, 4, 4, 4]] 8 character(10000) :: str 9 10 do i=1,size(real_kinds) 11 select case (i) 12 case (1) 13 write(str, "(f0.0)") -huge(real(1.0,kind=j(1))) 14 case (2) 15 write(str, "(f0.0)") -huge(real(1.0,kind=j(2))) 16 case (3) 17 write(str, "(f0.0)") -huge(real(1.0,kind=j(3))) 18 case (4) 19 write(str, "(f0.10)") -huge(real(1.0,kind=j(4))) 20 end select 21 enddo 22end program testbigf0 23 24