25 lines · plain
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=DEFAULT7! RUN: %flang -fsyntax-only -fimplicit-none -fno-implicit-none %s 2>&1 | FileCheck %s --allow-empty --check-prefix=DEFAULT8! RUN: not %flang -fsyntax-only -fimplicit-none %s 2>&1 | FileCheck %s --check-prefix=WITH_IMPL_NONE9 10!-----------------------------------------11! FRONTEND FLANG DRIVER (flang_fc1)12!-----------------------------------------13! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty --check-prefix=DEFAULT14! RUN: %flang_fc1 -fsyntax-only -fimplicit-none -fno-implicit-none %s 2>&1 | FileCheck %s --allow-empty --check-prefix=DEFAULT15! RUN: not %flang_fc1 -fsyntax-only -fimplicit-none %s 2>&1 | FileCheck %s --check-prefix=WITH_IMPL_NONE16 17! DEFAULT-NOT:error18 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 = b24end25