808a5a2534
`%flang-new` was introduced in the early days of the new driver to make
a clear distinction between the tests for the current and the new
driver. We have since introduced `%flang` (compiler driver) and
`%flang_fc1` (frontend driver) as the long term solution. This has allowed
us to share tests between `flang-new` and `f18`. This patch replaces
all uses of `%flang-new` with `%flang` and `%flang_fc1`.
Some tests are reformatted so that all tests look uniform and are easier
to follow. Where possible, `! REQUIRES: new-flang-driver` is deleted so
that more tests can be shared with `f18`. To facilitate this,
`f{no-}implicit-none` are introduced in `f18` with semantics identical
to `flang-new`.
Two tests are deleted rather than updated:
* flang/test/Frontend/print-preprocess-C-file.f90
* flang/test/Frontend/print-preprocessed-file.f90
Instead, there is plenty of preprocessor tests in
flang/test/Preprocessing/.
Differential Revision: https://reviews.llvm.org/D100174
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
|