1! { dg-do run } 2! { dg-additional-sources mixed_io_1.c } 3! { dg-options "-w" } 4 call cio 5 write(*,"(A)") '6789' ! { dg-output "123456789" } 6 end 7