1! { dg-do compile }
2! PR fortran/56667
3program error_message
4   implicit none
5   integer :: ir
6   write(*,*) ( ir, ir = 1,10    ! { dg-error "Expected a right parenthesis" }
7end program error_message
8