gcc/testsuite/gfortran.dg/fmt_i_default_field_width_1.f90

! { dg-do run }
! { dg-options -fdec }
!
! Test case for the default field widths enabled by the -fdec-format-defaults flag.
!
! This feature is not part of any Fortran standard, but it is supported by the
! Oracle Fortran compiler and others.

program test
    character(50) :: buffer
    character(1) :: colon

    integer(2) :: integer_2
    integer(4) :: integer_4
    integer(8) :: integer_8
    character(*), parameter :: fmt = "(A, I, A)"

    write(buffer, fmt) ':',12340,':'
    print *,buffer
    if (buffer.ne.":       12340:") stop 1

    read(buffer, "(1A, I, 1A)") colon, integer_4, colon
    if ((integer_4.ne.12340).or.(colon.ne.":")) stop 2

    integer_2 = -99
    write(buffer, fmt) ':',integer_2,':'
    print *,buffer
    if (buffer.ne.":    -99:") stop 3

    integer_8 = -11112222
    write(buffer, fmt) ':',integer_8,':'
    print *,buffer
    if (buffer.ne.":              -11112222:") stop 4

! If the width is 7 and there are 7 leading zeroes, the result should be zero.
    integer_2 = 789
    buffer = '0000000789'
    read(buffer, '(I)') integer_2
    if (integer_2.ne.0) stop 5
end