21 lines · plain
1! RUN: %flang -Wknown-bad-implicit-interface %s -c 2>&1 | FileCheck %s --check-prefix=WARN2! RUN: %flang -pedantic -Wno-known-bad-implicit-interface %s -c 2>&1 | FileCheck %s --allow-empty3! RUN: not %flang -WKnownBadImplicitInterface %s -c 2>&1 | FileCheck %s --check-prefix=ERROR14! RUN: not %flang -WKnown-Bad-Implicit-Interface %s -c 2>&1 | FileCheck %s --check-prefix=ERROR25 6! ERROR1: error: Unknown diagnostic option: -WKnownBadImplicitInterface7! ERROR2: error: Unknown diagnostic option: -WKnown-Bad-Implicit-Interface8 9program disable_diagnostic10 REAL :: x11 INTEGER :: y12 ! CHECK-NOT: warning13 ! WARN: warning: If the procedure's interface were explicit, this reference would be in error14 call sub(x)15 ! WARN: warning: If the procedure's interface were explicit, this reference would be in error16 call sub(y)17end program disable_diagnostic18 19subroutine sub()20end subroutine sub21