1! { dg-do run }
2! { dg-options "-std=f95 -pedantic " }
3! { dg-shouldfail "Zero width in format descriptor" }
4! PR36420 Fortran 2008: g0 edit descriptor
5! Test case provided by Jerry DeLisle <jvdelisle@gcc.gnu.org>
6    character(25) :: string = "(g0,g0,g0)"
7    character(33) :: buffer
8    write(buffer, string) ':',0,':'
9    if (buffer.ne.":0:") STOP 1
10end
11! { dg-output "Fortran runtime error: Zero width in format descriptor(\n|\r\n|\r)" }
12