! { dg-do run } | |
! This is a libgfortran (runtime library) test, need to run only once! | |
! | |
! { dg-additional-options "-funsigned" } | |
! | |
! PR libfortran/118536 - G formatting for UNSIGNED | |
program print_unsigned_g_formatted | |
character(21) :: s1, s2 | |
unsigned(1) :: u1 = huge(0U_1) | |
unsigned(2) :: u2 = huge(0U_2) | |
unsigned(4) :: u4 = huge(0U_4) | |
unsigned(8) :: u8 = huge(0U_8) | |
write(s1,'(i0)') u1 | |
write(s2,'(g0)') u1 | |
if (s1 /= s2) stop 1 | |
write(s1,'(i0)') u2 | |
write(s2,'(g0)') u2 | |
if (s1 /= s2) stop 2 | |
write(s1,'(i0)') u4 | |
write(s2,'(g0)') u4 | |
if (s1 /= s2) stop 3 | |
write(s1,'(i0)') u8 | |
write(s2,'(g0)') u8 | |
if (s1 /= s2) stop 4 | |
end |