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