1! { dg-do compile }
2!
3! Contributed by Walt Brainerd  <walt.brainerd@gmail.com>
4!
5real :: i = 9.9
6i:block
7 if (i>7.7) then ! { dg-error "is not appropriate for an expression" }
8     exit i
9   else          ! { dg-error "Unexpected ELSE statement" }
10     i = 2.2     ! { dg-error "is not a variable" }
11   end if        ! { dg-error "Expecting END BLOCK statement" }
12end block i      ! { dg-error "Expecting END PROGRAM statement" }
13print*,i         ! { dg-error "not appropriate for an expression" }
14end
15! { dg-excess-errors "Unexpected end of file" }
16