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
5program main
6  implicit none
7  character(len=20) :: str
8  character(len=60) :: format2 = "(2(1x,l0,1x))"
9  write(str,format2)
10end 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)" }
13