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