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
76 lines
2.7 KiB
Fortran
76 lines
2.7 KiB
Fortran
! Ensure argument -I works as expected with an included header.
|
|
|
|
!--------------------------
|
|
! FLANG DRIVER (flang)
|
|
!--------------------------
|
|
! RUN: not %flang -E %s 2>&1 | FileCheck %s --check-prefix=UNINCLUDED
|
|
! RUN: %flang -E -I %S/Inputs %s 2>&1 | FileCheck %s --check-prefix=SINGLEINCLUDE
|
|
! RUN: %flang -E -I %S/Inputs -I %S/Inputs/header-dir %s 2>&1 | FileCheck %s --check-prefix=MAINDIRECTORY
|
|
! RUN: %flang -E -I %S/Inputs/header-dir -I %S/Inputs %s 2>&1 | FileCheck %s --check-prefix=SUBDIRECTORY
|
|
|
|
!----------------------------------------
|
|
! FRONTEND FLANG DRIVER (flang_fc1)
|
|
!----------------------------------------
|
|
! RUN: not %flang_fc1 -E %s 2>&1 | FileCheck %s --check-prefix=UNINCLUDED
|
|
! RUN: %flang_fc1 -E -I %S/Inputs %s 2>&1 | FileCheck %s --check-prefix=SINGLEINCLUDE
|
|
! RUN: %flang_fc1 -E -I %S/Inputs -I %S/Inputs/header-dir %s 2>&1 | FileCheck %s --check-prefix=MAINDIRECTORY
|
|
! RUN: %flang_fc1 -E -I %S/Inputs/header-dir -I %S/Inputs %s 2>&1 | FileCheck %s --check-prefix=SUBDIRECTORY
|
|
|
|
!--------------------------------------------
|
|
! EXPECTED OUTPUT FOR MISSING INCLUDED FILE
|
|
!--------------------------------------------
|
|
! UNINCLUDED:#include: Source file 'basic-header-one.h' was not found
|
|
! UNINCLUDED-NOT:program b
|
|
! UNINCLUDED-NOT:program c
|
|
|
|
!---------------------------------------------
|
|
! EXPECTED OUTPUT FOR A SINGLE INCLUDED FOLDER
|
|
!--------------------------------------------
|
|
! SINGLEINCLUDE:program maindirectoryone
|
|
! SINGLEINCLUDE-NOT:program x
|
|
! SINGLEINCLUDE-NOT:program b
|
|
! SINGLEINCLUDE-NEXT:end
|
|
! SINGLEINCLUDE-NEXT:program maindirectorytwo
|
|
! SINGLEINCLUDE-NOT:program y
|
|
! SINGLEINCLUDE-NOT:program c
|
|
|
|
!-------------------------------------------------------
|
|
! EXPECTED OUTPUT FOR Inputs/ DIRECTORY SPECIFIED FIRST
|
|
!-------------------------------------------------------
|
|
! MAINDIRECTORY:program maindirectoryone
|
|
! MAINDIRECTORY-NOT:program subdirectoryone
|
|
! MAINDIRECTORY-NOT:program b
|
|
! MAINDIRECTORY-NEXT:end
|
|
! MAINDIRECTORY-NEXT:program maindirectorytwo
|
|
! MAINDIRECTORY-NOT:program subdirectorytwo
|
|
! MAINDIRECTORY-NOT:program c
|
|
|
|
!------------------------------------------------------------------
|
|
! EXPECTED OUTPUT FOR Inputs/header-dir/ DIRECTORY SPECIFIED FIRST
|
|
!------------------------------------------------------------------
|
|
! SUBDIRECTORY:program subdirectoryone
|
|
! SUBDIRECTORY-NOT:program maindirectoryone
|
|
! SUBDIRECTORY-NOT:program b
|
|
! SUBDIRECTORY-NEXT:end
|
|
! SUBDIRECTORY-NEXT:program subdirectorytwo
|
|
! SUBDIRECTORY-NOT:program maindirectorytwo
|
|
! SUBDIRECTORY-NOT:program c
|
|
|
|
! include-test-one.f90
|
|
#include <basic-header-one.h>
|
|
#ifdef X
|
|
program X
|
|
#else
|
|
program B
|
|
#endif
|
|
end
|
|
|
|
! include-test-two.f90
|
|
INCLUDE "basic-header-two.h"
|
|
#ifdef Y
|
|
program Y
|
|
#else
|
|
program C
|
|
#endif
|
|
end
|