6110e7716c
Make the #include "file" preprocessing directive begin its search in the same directory as the file containing the directive, as other preprocessors and our Fortran INCLUDE statement do. Avoid current working directory for all source files except the original. Resolve tests. Differential Revision: https://reviews.llvm.org/D95481
78 lines
2.7 KiB
Fortran
78 lines
2.7 KiB
Fortran
! Ensure argument -I works as expected with an included header.
|
|
|
|
! REQUIRES: new-flang-driver
|
|
|
|
!--------------------------
|
|
! FLANG DRIVER (flang-new)
|
|
!--------------------------
|
|
! RUN: not %flang-new -E %s 2>&1 | FileCheck %s --check-prefix=UNINCLUDED
|
|
! RUN: %flang-new -E -I %S/Inputs %s 2>&1 | FileCheck %s --check-prefix=SINGLEINCLUDE
|
|
! RUN: %flang-new -E -I %S/Inputs -I %S/Inputs/header-dir %s 2>&1 | FileCheck %s --check-prefix=MAINDIRECTORY
|
|
! RUN: %flang-new -E -I %S/Inputs/header-dir -I %S/Inputs %s 2>&1 | FileCheck %s --check-prefix=SUBDIRECTORY
|
|
|
|
!----------------------------------------
|
|
! FRONTEND FLANG DRIVER (flang-new -fc1)
|
|
!----------------------------------------
|
|
! RUN: not %flang-new -fc1 -E %s 2>&1 | FileCheck %s --check-prefix=UNINCLUDED
|
|
! RUN: %flang-new -fc1 -E -I %S/Inputs %s 2>&1 | FileCheck %s --check-prefix=SINGLEINCLUDE
|
|
! RUN: %flang-new -fc1 -E -I %S/Inputs -I %S/Inputs/header-dir %s 2>&1 | FileCheck %s --check-prefix=MAINDIRECTORY
|
|
! RUN: %flang-new -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
|