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