1! { dg-do run } 2 3program fail_image_statement_2 4 implicit none 5 6 fail image ! OK 7 error stop "This statement should not be reached." 8 9end program fail_image_statement_2 10 11