llvm-project/flang/test/Driver/input-output-file.f90
Andrzej Warzynski 49acab3f14 [flang][nfc] Relocate a few driver tests
When the work on the Flang driver started, we created 2 test
directories:
  * flang/test/Frontend/
  * flang/test/Driver/
That was mostly done to model what Clang was doing. In practice, we
stopped using "flang/test/Frontend/" early on and most Flang driver
tests are currently located in "flang/test/Driver/". This patch moves
the remaining tests from the latter into the former directory.

This change also means that we can re-use test input files, i.e.
flang/test/Frontend/Inputs/hello-world.f90 can be replaced with
flang/test/Driver/Inputs/hello.f90. To this end, the affected test is
updated (multiple-input-files.f90).

Differential Revision: https://reviews.llvm.org/D130633
2022-10-07 17:04:06 +00:00

38 lines
1.4 KiB
Fortran

!--------------------------
! FLANG DRIVER (flang)
!--------------------------
! NOTE: Use `-E` so that the compiler driver stops after the 1st compilation phase, preprocessing. That's all we need.
! TEST 1: Print to stdout (implicit)
! RUN: %flang -E %s 2>&1 | FileCheck %s --match-full-lines
! TEST 2: Print to stdout (explicit)
! RUN: %flang -E -o - %s 2>&1 | FileCheck %s --match-full-lines
! TEST 3: Print to a file
! RUN: %flang -E -o %t %s 2>&1 && FileCheck %s --match-full-lines --input-file=%t
!----------------------------------------
! FLANG FRONTEND DRIVER (flang -fc1)
!----------------------------------------
! TEST 4: Write to a file (implicit)
! This particular test case generates an output file in the same directory as the input file. We need to copy the input file into a
! temporary directory to avoid polluting the source directory.
! RUN: rm -rf %t-dir && mkdir -p %t-dir && cd %t-dir
! RUN: cp %s .
! RUN: %flang_fc1 -test-io input-output-file.f90 2>&1 && FileCheck %s --match-full-lines --input-file=input-output-file.txt
! TEST 5: Write to a file (explicit)
! RUN: %flang_fc1 -test-io -o %t %s 2>&1 && FileCheck %s --match-full-lines --input-file=%t
! CHECK-LABEL: Program arithmetic
! CHECK-NEXT: Integer :: i, j
! CHECK-NEXT: i = 2; j = 3; i= i * j;
! CHECK-NEXT: End Program arithmetic
Program arithmetic
Integer :: i, j
i = 2; j = 3; i= i * j;
End Program arithmetic