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