blob: 5078ac804d329d91ad9496d367914939926ac9df [file] [log] [blame]
! { dg-do compile }
! PR fortran/56667
program error_message
implicit none
integer :: ir
write(*,*) ( ir, ir = 1,10 ! { dg-error "Expected a right parenthesis" }
end program error_message