gcc/testsuite/gfortran.dg/fmt_f_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, F, A)"
  21
  22     real_4 = 4.18
  23     write(buffer, fmt) ':',real_4,':' ! { dg-error "Nonnegative width required" }
  24
  25     real_4 = 0.00000018
  26     write(buffer, fmt) ':',real_4,':' ! { dg-error "Nonnegative width required" }
  27
  28     real_8 = 4.18
  29     write(buffer, fmt) ':',real_8,':' ! { dg-error "Nonnegative width required" }
  30
  31 #ifdef __GFC_REAL_16__
  32     real_16 = 4.18
  33     write(buffer, fmt) ':',real_16,':' ! { dg-error "Nonnegative width required"  "" { target { fortran_real_16 || { hppa*64*-*-hpux* } } } }
  34 #endif
  35 end