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