mirror of
https://github.com/capstone-engine/llvm-capstone.git
synced 2025-02-13 13:45:16 +00:00
45da495f73
Until now we've been maintaining 2 test directories for Flang's drivers:
* test/Driver for `f18` (the current driver)
* test/Flang-Driver for `flang-new` (the new driver)
As we have started sharing tests between the drivers, this separation is
no longer required. This patch merges the two test directories. As
suggested in the review, moving forward we'll avoid having tests
specifically for the old driver.
A few notable changes:
* Driver/version-test.f90 and Driver/no-files.f90 are deleted. The
versions for the new driver are more robust, but tricky to share.
* Driver/write-module.f90 is deleted in favour of
Flang-Driver/write-module.f90 (see https://reviews.llvm.org/D97197
for more context)
Differential Revision: https://reviews.llvm.org/D98257
59 lines
3.0 KiB
Fortran
59 lines
3.0 KiB
Fortran
! Ensure argument -fdefault* work as expected.
|
|
! TODO: Add checks when actual codegen is possible for this family
|
|
|
|
!--------------------------
|
|
! FLANG DRIVER (flang-new)
|
|
!--------------------------
|
|
! RUN: rm -rf %t/dir-flang-new && mkdir -p %t/dir-flang-new && %flang -fsyntax-only -module-dir %t/dir-flang-new %s 2>&1
|
|
! RUN: cat %t/dir-flang-new/m.mod | FileCheck %s --check-prefix=NOOPTION
|
|
! RUN: rm -rf %t/dir-flang-new && mkdir -p %t/dir-flang-new && %flang -fsyntax-only -fdefault-real-8 -module-dir %t/dir-flang-new %s 2>&1
|
|
! RUN: cat %t/dir-flang-new/m.mod | FileCheck %s --check-prefix=REAL8
|
|
! RUN: rm -rf %t/dir-flang-new && mkdir -p %t/dir-flang-new && %flang -fsyntax-only -fdefault-real-8 -fdefault-double-8 -module-dir %t/dir-flang-new %s 2>&1
|
|
! RUN: cat %t/dir-flang-new/m.mod | FileCheck %s --check-prefix=DOUBLE8
|
|
! RUN: not %flang -fsyntax-only -fdefault-double-8 %s 2>&1 | FileCheck %s --check-prefix=ERROR
|
|
|
|
!-----------------------------------------
|
|
! FRONTEND FLANG DRIVER (flang-new -fc1)
|
|
!-----------------------------------------
|
|
! RUN: rm -rf %t/dir-flang-new && mkdir -p %t/dir-flang-new && %flang_fc1 -fsyntax-only -module-dir %t/dir-flang-new %s 2>&1
|
|
! RUN: cat %t/dir-flang-new/m.mod | FileCheck %s --check-prefix=NOOPTION
|
|
! RUN: rm -rf %t/dir-flang-new && mkdir -p %t/dir-flang-new && %flang_fc1 -fsyntax-only -fdefault-real-8 -module-dir %t/dir-flang-new %s 2>&1
|
|
! RUN: cat %t/dir-flang-new/m.mod | FileCheck %s --check-prefix=REAL8
|
|
! RUN: rm -rf %t/dir-flang-new && mkdir -p %t/dir-flang-new && %flang_fc1 -fsyntax-only -fdefault-real-8 -fdefault-double-8 -module-dir %t/dir-flang-new %s 2>&1
|
|
! RUN: cat %t/dir-flang-new/m.mod | FileCheck %s --check-prefix=DOUBLE8
|
|
! RUN: not %flang_fc1 -fsyntax-only -fdefault-double-8 %s 2>&1 | FileCheck %s --check-prefix=ERROR
|
|
|
|
!-----------------------------------------
|
|
! EXPECTED OUTPUT FOR NO SPECIFICATION
|
|
!-----------------------------------------
|
|
! NOOPTION: integer(4),parameter::real_kind=4_4
|
|
! NOOPTION-NEXT: intrinsic::kind
|
|
! NOOPTION-NEXT: integer(4),parameter::double_kind=8_4
|
|
|
|
!-------------------------------------------
|
|
! EXPECTED OUTPUT FOR ONLY -fdefault-real-8
|
|
!-------------------------------------------
|
|
! REAL8: integer(4),parameter::real_kind=8_4
|
|
! REAL8-NEXT: intrinsic::kind
|
|
! REAL8-NEXT: integer(4),parameter::double_kind=16_4
|
|
|
|
!-------------------------------------------------------------
|
|
! EXPECTED OUTPUT FOR -fdefault-real-8 AND -fdefault-double-8
|
|
!-------------------------------------------------------------
|
|
! DOUBLE8: integer(4),parameter::real_kind=8_4
|
|
! DOUBLE8-NEXT: intrinsic::kind
|
|
! DOUBLE8-NEXT: integer(4),parameter::double_kind=8_4
|
|
|
|
!------------------------------------------------------
|
|
! EXPECTED OUTPUT FOR PROVIDING ONLY -fdefault-double-8
|
|
!------------------------------------------------------
|
|
! ERROR: Use of `-fdefault-double-8` requires `-fdefault-real-8`
|
|
|
|
module m
|
|
implicit none
|
|
real :: x
|
|
double precision :: y
|
|
integer, parameter :: real_kind = kind(x) !-fdefault-real-8
|
|
integer, parameter :: double_kind = kind(y) !-fdefault-double-8
|
|
end
|