llvm-project/flang/test/Semantics/implicit08.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

8 lines
187 B
Fortran
Raw Normal View History

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