flang/test/Driver/implicit-none.f90

   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
  22 function a()
  23   a = b
  24 end