gcc/testsuite/gfortran.dg/fmt_g_default_field_width_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-cpp -fdec -fno-dec-format-defaults" }
   3 !
   4 ! Test case for the default field widths not enabled.
   5 !
   6 ! Test case added by Mark Eggleston <mark.eggleston@codethink.com> to check
   7 ! use of -fno-dec-format-defaults
   8 !
   9
  10 program test
  11     implicit none
  12     character(50) :: buffer
  13
  14     real(4) :: real_4
  15     real(8) :: real_8
  16 #ifdef __GFC_REAL_16__
  17     real(16) :: real_16
  18 #endif
  19     integer :: len
  20     character(*), parameter :: fmt = "(A, G, A)"
  21
  22     real_4 = 4.18
  23     write(buffer, fmt) ':',real_4,':' ! { dg-error "Positive width required" }
  24
  25     real_4 = 0.00000018
  26     write(buffer, fmt) ':',real_4,':' ! { dg-error "Positive width required" }
  27
  28     real_4 = 18000000.4
  29     write(buffer, fmt) ':',real_4,':' ! { dg-error "Positive width required" }
  30
  31     real_8 = 4.18
  32     write(buffer, fmt) ':',real_8,':' ! { dg-error "Positive width required" }
  33
  34 #ifdef __GFC_REAL_16__
  35     real_16 = 4.18
  36     write(buffer, fmt) ':',real_16,':' ! { dg-error "Positive width required" "" { target { fortran_real_16 || { hppa*64*-*-hpux* } } } }
  37 #endif
  38 end