1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3subroutine s1
4  block
5    !ERROR: IMPLICIT statement is not allowed in a BLOCK construct
6    implicit logical(a)
7  end block
8end subroutine
9