1! { dg-do compile }
2
3program fail_image_statement_1
4  implicit none
5
6  fail image ! OK
7  fail image (1)  ! { dg-error "Syntax error in FAIL IMAGE statement at \\(1\\)" }
8
9end program fail_image_statement_1
10
11