1! { dg-do compile }
2! { dg-options "-std=f2008" }
3
4! Check for label mismatch errors with BLOCK statements.
5
6PROGRAM 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'" }
17END PROGRAM main ! { dg-error "Expecting END BLOCK" }
18! { dg-excess-errors "Unexpected end of file" }
19