llvm-project/flang/test/Driver/fdefault.f90

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