xref: /llvm-project/flang/test/Driver/implicit-none.f90 (revision d5d420bb3bcc2eea926fb70fc3e6818c32e1eecc) 
1! Ensure argument -fimplicit-none works as expected.
2
3!--------------------------
4! FLANG DRIVER (flang)
5!--------------------------
6! RUN: %flang -fsyntax-only %s  2>&1 | FileCheck %s --allow-empty --check-prefix=DEFAULT
7! RUN: %flang -fsyntax-only -fimplicit-none -fno-implicit-none %s  2>&1 | FileCheck %s --allow-empty --check-prefix=DEFAULT
8! RUN: not %flang -fsyntax-only -fimplicit-none %s  2>&1 | FileCheck %s --check-prefix=WITH_IMPL_NONE
9
10!-----------------------------------------
11! FRONTEND FLANG DRIVER (flang_fc1)
12!-----------------------------------------
13! RUN: %flang_fc1 -fsyntax-only %s  2>&1 | FileCheck %s --allow-empty --check-prefix=DEFAULT
14! RUN: %flang_fc1 -fsyntax-only -fimplicit-none -fno-implicit-none %s  2>&1 | FileCheck %s --allow-empty --check-prefix=DEFAULT
15! RUN: not %flang_fc1 -fsyntax-only -fimplicit-none %s  2>&1 | FileCheck %s --check-prefix=WITH_IMPL_NONE
16
17! DEFAULT-NOT:error
18
19! WITH_IMPL_NONE:No explicit type declared for 'a'
20! WITH_IMPL_NONE:No explicit type declared for 'b'
21
22function a()
23  a = b
24end
25