gcc/testsuite/gfortran.dg/read_x_eor.f90

   1 ! { dg-do run }
   2 ! ( dg-output "^" }
   3 !
   4 ! Test fix for pr24785 - EOR used to scrub the 2X.
   5 ! Reduced from PR example submitted by Harald Anlauf <anlauf@gmx.de>
   6 !
   7      program x_with_advance_bug
   8      write (*,'(A,2X)',  advance="no") "<"
   9      write (*,'(A)') ">" ! { dg-output "<  >" }
  10      end