gcc/testsuite/gfortran.dg/pr65045.f90

   1 ! { dg-do compile }
   2 !
   3 ! Contributed by Walt Brainerd  <walt.brainerd@gmail.com>
   4 !
   5 real :: i = 9.9
   6 i: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" }
  12 end block i      ! { dg-error "Expecting END PROGRAM statement" }
  13 print*,i         ! { dg-error "not appropriate for an expression" }
  14 end
  15 ! { dg-excess-errors "Unexpected end of file" }