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