blob: 5078ac804d329d91ad9496d367914939926ac9df (
plain)
1
2
3
4
5
6
7
|
! { 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
|