| ! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s --allow-empty | |
| ! Ensure no bogus "no explicit type for ..." error on USE-associated | |
| ! implicitly-typed COMMON block object in scope with IMPLICIT NONE. | |
| ! CHECK-NOT: error: | |
| module m | |
| common /block/ var | |
| end | |
| subroutine test | |
| use m | |
| implicit none | |
| end |