[Bug libfortran/93727] Fortran 2018: EX edit descriptor

[anlauf at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=93727

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |anlauf at gcc dot gnu.org

--- Comment #16 from anlauf at gcc dot gnu.org ---
Hi Jerry,

I have played with ifx and NAG and this simple test:

program main
  implicit none
  real(4) :: r4
  real(8) :: r8
  integer :: i
  do i = 0, 16
     r4 = real(i,4)
     r8 = real(i,8)
     write(*,"(i4,*(4x,EX0.0))") i, r4, abs (nearest(r4,-1.0)), &
                                    r8, abs (nearest(r8,-1.0))
  end do
end program main

Both compilers print exactly the same:

   0    0X0.P+0    0X8.P-152    0X0.P+0    0X8.P-1077
   1    0X8.P-3    0XF.FFFFFP-4    0X8.P-3    0XF.FFFFFFFFFFFF8P-4
   2    0X8.P-2    0XF.FFFFFP-3    0X8.P-2    0XF.FFFFFFFFFFFF8P-3
   3    0XC.P-2    0XB.FFFFFP-2    0XC.P-2    0XB.FFFFFFFFFFFF8P-2
   4    0X8.P-1    0XF.FFFFFP-2    0X8.P-1    0XF.FFFFFFFFFFFF8P-2
   5    0XA.P-1    0X9.FFFFFP-1    0XA.P-1    0X9.FFFFFFFFFFFF8P-1
   6    0XC.P-1    0XB.FFFFFP-1    0XC.P-1    0XB.FFFFFFFFFFFF8P-1
   7    0XE.P-1    0XD.FFFFFP-1    0XE.P-1    0XD.FFFFFFFFFFFF8P-1
   8    0X8.P+0    0XF.FFFFFP-1    0X8.P+0    0XF.FFFFFFFFFFFF8P-1
   9    0X9.P+0    0X8.FFFFFP+0    0X9.P+0    0X8.FFFFFFFFFFFF8P+0
  10    0XA.P+0    0X9.FFFFFP+0    0XA.P+0    0X9.FFFFFFFFFFFF8P+0
  11    0XB.P+0    0XA.FFFFFP+0    0XB.P+0    0XA.FFFFFFFFFFFF8P+0
  12    0XC.P+0    0XB.FFFFFP+0    0XC.P+0    0XB.FFFFFFFFFFFF8P+0
  13    0XD.P+0    0XC.FFFFFP+0    0XD.P+0    0XC.FFFFFFFFFFFF8P+0
  14    0XE.P+0    0XD.FFFFFP+0    0XE.P+0    0XD.FFFFFFFFFFFF8P+0
  15    0XF.P+0    0XE.FFFFFP+0    0XF.P+0    0XE.FFFFFFFFFFFF8P+0
  16    0X8.P+1    0XF.FFFFFP+0    0X8.P+1    0XF.FFFFFFFFFFFF8P+0