1! { dg-do run }
2! { dg-shouldfail "UNIT does not exist for FLUSH" }
3! PR28335 Check for error on no unit.
4  close(88)
5  flush(88) ! { dg-output "Specified UNIT in FLUSH is not connected" }
6  end
7
8