12 lines · plain
1! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s --allow-empty2! Ensure no bogus "no explicit type for ..." error on USE-associated3! implicitly-typed COMMON block object in scope with IMPLICIT NONE.4! CHECK-NOT: error:5module m6 common /block/ var7end8subroutine test9 use m10 implicit none11end12