gcc/testsuite/gfortran.dg/block_4.f08

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2008" }
   3
   4 ! Check for label mismatch errors with BLOCK statements.
   5
   6 PROGRAM main
   7   IMPLICIT NONE
   8
   9   BLOCK
  10   END BLOCK wrongname ! { dg-error "Syntax error" }
  11
  12   myname: BLOCK
  13   END BLOCK wrongname ! { dg-error "Expected label 'myname'" }
  14
  15   myname2: BLOCK
  16   END BLOCK ! { dg-error "Expected block name of 'myname2'" }
  17 END PROGRAM main ! { dg-error "Expecting END BLOCK" }
  18 ! { dg-excess-errors "Unexpected end of file" }