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 !--------------------------------------
  18 ! EXPECTED OUTPUT FOR NO IMPLICIT NONE
  19 !--------------------------------------
  20 ! DEFAULT-NOT:error
  21
  22 !------------------------------------------
  23 ! EXPECTED OUTPUT FOR IMPLICIT NONE ALWAYS
  24 !------------------------------------------
  25 ! WITH_IMPL_NONE:No explicit type declared for 'a'
  26 ! WITH_IMPL_NONE:No explicit type declared for 'b'
  27
  28 function a()
  29   a = b
  30 end