flang/test/Semantics/implicit08.f90

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