Subversion Repositories openrisc

! PR libfortran/15332 and PR fortran/13257

! We used to accept this as an extension but

! did do the correct thing at runtime.

! Note the missing , before i1 in the format.

! { dg-do run }

! { dg-options "" }

      character*12 c

      write (c,100) 0, 1

      if (c .ne. 'i = 0, j = 1') call abort

      write (c,100) 0

      if (c .ne. 'i = 0       ') call abort

 100  format ('i = 'i1,:,', j = ',i1)

      end