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