1! { dg-do run } 2! { dg-options "-std=legacy" } 3! 4! PR24268 Test case derived from example given by Iwan Kawrakow 5! Embedded spaces in format strings should be ignored. 6! Prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> 7 program pr24268 8 real x 9 character*13 line 10 line = "12.34" 11 read(line,*) x 12 write(line,10) x 13 10 format(g1 14 * 1.4) 15 if (line.ne." 12.34") call abort() 16 line = "" 17 write(line,20) x 18 20 format(t r 2 , g 1 1 . 4) 19 if (line.ne." 12.34") call abort() 20 end 21