Merge from trunk (r239915 to r240230)fortran-dev

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/fortran-dev@240290 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 16 insertions, 8 deletions

diff --git a/gcc/testsuite/gfortran.dg/fmt_f0_2.f90 b/gcc/testsuite/gfortran.dg/fmt_f0_2.f90
index 6e679fcecb8..4afba91389e 100644
--- a/gcc/testsuite/gfortran.dg/fmt_f0_2.f90
+++ b/gcc/testsuite/gfortran.dg/fmt_f0_2.f90
@@ -1,15 +1,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
-  write(str, "(f0.0)") -huge(1.0) 
-  if (len(trim(str)).lt.41) error stop "FAILED AT LINE 7"
-  write(str, "(f0.0)") -huge(1.0_8)
-  if (len(trim(str)).lt.311) error stop "FAILED AT LINE 9"
-  write(str, "(f0.0)") -huge(1.0_10)
-  if (len(trim(str)).lt.4935) error stop "FAILED AT LINE 11"
-  write(str, "(f0.10)") -huge(1.0_16)
-  if (len(trim(str)).lt.4945) error stop "FAILED AT LINE 13"
+
+  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