forked from OSchip/llvm-project
31 lines
1.3 KiB
Fortran
31 lines
1.3 KiB
Fortran
! Ensure argument -fimplicit-none works as expected.
|
|
|
|
!--------------------------
|
|
! FLANG DRIVER (flang)
|
|
!--------------------------
|
|
! RUN: %flang -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty --check-prefix=DEFAULT
|
|
! RUN: %flang -fsyntax-only -fimplicit-none -fno-implicit-none %s 2>&1 | FileCheck %s --allow-empty --check-prefix=DEFAULT
|
|
! RUN: not %flang -fsyntax-only -fimplicit-none %s 2>&1 | FileCheck %s --check-prefix=WITH_IMPL_NONE
|
|
|
|
!-----------------------------------------
|
|
! FRONTEND FLANG DRIVER (flang_fc1)
|
|
!-----------------------------------------
|
|
! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty --check-prefix=DEFAULT
|
|
! RUN: %flang_fc1 -fsyntax-only -fimplicit-none -fno-implicit-none %s 2>&1 | FileCheck %s --allow-empty --check-prefix=DEFAULT
|
|
! RUN: not %flang_fc1 -fsyntax-only -fimplicit-none %s 2>&1 | FileCheck %s --check-prefix=WITH_IMPL_NONE
|
|
|
|
!--------------------------------------
|
|
! EXPECTED OUTPUT FOR NO IMPLICIT NONE
|
|
!--------------------------------------
|
|
! DEFAULT-NOT:error
|
|
|
|
!------------------------------------------
|
|
! EXPECTED OUTPUT FOR IMPLICIT NONE ALWAYS
|
|
!------------------------------------------
|
|
! WITH_IMPL_NONE:No explicit type declared for 'a'
|
|
! WITH_IMPL_NONE:No explicit type declared for 'b'
|
|
|
|
function a()
|
|
a = b
|
|
end
|