implicit08.f90 « Semantics « test « flang - llvm-project.git - Unnamed repository; edit this file 'description' to name the repository.

index : llvm-project.git

Unnamed repository; edit this file 'description' to name the repository.

thomasg

summary refs log tree commit diff

path: root/flang/test/Semantics/implicit08.f90

blob: 9b42bc2612c406ed603b47cab0d31c53f8a9b621 (plain)

! 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