9 lines
131 B
Fortran
9 lines
131 B
Fortran
|
! RUN: not %flang_fc1 -E %s 2>&1 | FileCheck %s
|
||
|
|
do i = 1,10
|
||
|
|
! CHECK: Unmatched '('
|
||
|
|
if (i != 0) then
|
||
|
|
exit
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
end
|