gcc/testsuite/gfortran.dg/dollar_edit_descriptor_4.f

   1 ! { dg-do run }
   2 ! { dg-options "-std=gnu" }
   3 ! PR98825 Test for fix of '$' edit descriptor.
   4       character(30) :: line
   5    10 format (i3,$)
   6
   7       open(10, status='scratch')
   8       write (10,10) 1
   9       write (10,10) 2,3,4,5
  10 ! Check the result.
  11       line = 'abcdefg'
  12       rewind(10)
  13       read(10, '(a)') line
  14       close(10)
  15       if (line .ne. '  1  2  3  4  5') call abort
  16       end