gcc/testsuite/gfortran.dg/fmt_i_default_field_width_2.f90

   1 ! { dg-do run }
   2 ! { dg-options -fdec-format-defaults }
   3 !
   4 ! Test case for the default field widths enabled by the -fdec-format-defaults flag.
   5 !
   6 ! This feature is not part of any Fortran standard, but it is supported by the
   7 ! Oracle Fortran compiler and others.
   8 !
   9 ! Test case added by Mark Eggleston <mark.eggleston@codethink.com> to check
  10 ! use of -fdec-format-defaults
  11 !
  12
  13 program test
  14     character(50) :: buffer
  15     character(1) :: colon
  16
  17     integer(2) :: integer_2
  18     integer(4) :: integer_4
  19     integer(8) :: integer_8
  20     character(*), parameter :: fmt = "(A, I, A)"
  21
  22     write(buffer, fmt) ':',12340,':'
  23     print *,buffer
  24     if (buffer.ne.":       12340:") stop 1
  25
  26     read(buffer, '(A1, I, A1)') colon, integer_4, colon
  27     if ((integer_4.ne.12340).or.(colon.ne.":")) stop 2
  28
  29     integer_2 = -99
  30     write(buffer, fmt) ':',integer_2,':'
  31     print *,buffer
  32     if (buffer.ne.":    -99:") stop 3
  33
  34     integer_8 = -11112222
  35     write(buffer, fmt) ':',integer_8,':'
  36     print *,buffer
  37     if (buffer.ne.":              -11112222:") stop 4
  38
  39 ! If the width is 7 and there are 7 leading zeroes, the result should be zero.
  40     integer_2 = 789
  41     buffer = '0000000789'
  42     read(buffer, '(I)') integer_2
  43     if (integer_2.ne.0) stop 5
  44 end