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