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

[jvdelisle at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #9 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Little by little.

! pr93727 EX Format Specifiers
program main
  implicit none
  character s1  
  real(4) :: r4
  real(8) :: r8
  real(10) :: r10
  !real(16) :: r16  
  r4 = -huge(34.0_4)
  r8 = -huge( 1.0_8/3.0_8)
  r10= -huge(1.0_10/3.0_10)
  !r16 = 1.0_16/3.0_16

  write(*,"(A)") "123456789012345678901234567890"
  write(*,"(EX0.0)") r4
  write(*,"(EX0.0)") r8
  write(*,"(EX0.0)") r10
  write(*,"(A)") "123456789012345678901234567890"
  write(*,"(EX0.0)") 1.0_4/r4
  write(*,"(EX0.0)") 1.0_8/r8
  write(*,"(EX0.0)") 1.0_10/r10
  write(*,"(A)") "123456789012345678901234567890"
  !write(*,"(,EX36.4)") r16
end program main

$ gfcex pr93727.f90 
$ ./a.out 
123456789012345678901234567890
-0X1.FFFFFEP+126
-0X1.FFFFFFFFFFFFFP+1024
-0XF.FFFFFFFFFFFFFFFP+16387
123456789012345678901234567890
-0X1P-128
-0X0.4P-1022
-0X2P-16385
123456789012345678901234567890