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