1! RUN: %S/test_errors.sh %s %t %f18 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