gcc/testsuite/gfortran.dg/fmt_l0.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=gnu -pedantic" }
   3 ! Test the GNU extension of a L format descriptor without width
   4 ! PR libfortran/54679
   5 program main
   6   implicit none
   7   character(len=20) :: str
   8   character(len=60) :: format2 = "(2(1x,l0,1x))"
   9   write(str,format2)
  10 end program main
  11 ! { dg-output "At line 9 of file.*" }
  12 ! { dg-output "Fortran runtime warning: Zero width after L descriptor(\n|\r\n|\r)" }