forked from OSchip/llvm-project
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
|