maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity
llvm-project/flang/test/Semantics/resolve104.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

65 lines
2.4 KiB
Fortran
Raw Normal View History

[Flang] Ported test_errors.sh to Python To enable Flang testing on Windows, shell scripts have to be ported to Python. In this patch the "test_errors.sh" script is ported to python ("test_errors.py"). The RUN line of existing tests was changed to make use of the python script. Used python regex in place of awk/sed. Reviewed By: Meinersbur Differential Revision: https://reviews.llvm.org/D107575
2021-09-06 16:19:20 +08:00
! RUN: %python %S/test_errors.py %s %flang_fc1
[flang] Improve constant folding for type parameter inquiries We were not folding type parameter inquiries for the form 'var%typeParam' where 'typeParam' was a KIND or LEN type parameter of a derived type and 'var' was a designator of the derived type. I fixed this by adding code to the function 'FoldOperation()' for 'TypeParamInquiry's to handle this case. I also cleaned up the code for the case where there is no designator. In order to make the error messages correctly refer to both the points of declaration and instantiation, I needed to add an argument to the function 'InstantiateIntrinsicType()' for the location of the instantiation. I also changed the formatting of 'TypeParamInquiry' to correctly format this case. I also added tests for both KIND and LEN type parameter inquiries in resolve104.f90. Making these changes revealed an error in resolve89.f90 and caused one of the error messages in assign04.f90 to be different. Reviewed By: klausler Differential Revision: https://reviews.llvm.org/D99892
2021-04-07 00:25:35 +08:00
! Test constant folding of type parameter values both a base value and a
! parameter name are supplied.
!
! Type parameters are described in 7.5.3 and constant expressions are described
! in 10.1.12. 10.1.12, paragraph 4 defines whether a specification inquiry is
! a constant expression. Section 10.1.11, paragraph 3, item (2) states that a
! type parameter inquiry is a specification inquiry.
module m1
type dtype(goodDefaultKind, badDefaultKind)
integer, kind :: goodDefaultKind = 4
integer, kind :: badDefaultKind = 343
! next field OK only if instantiated with a good value of goodDefaultKind
!ERROR: KIND parameter value (99) of intrinsic type REAL did not resolve to a supported value
real(goodDefaultKind) :: goodDefaultField
! next field OK only if instantiated with a good value of goodDefaultKind
!ERROR: KIND parameter value (343) of intrinsic type REAL did not resolve to a supported value
!ERROR: KIND parameter value (99) of intrinsic type REAL did not resolve to a supported value
real(badDefaultKind) :: badDefaultField
end type dtype
type(dtype) :: v1
type(dtype(4, 4)) :: v2
type(dtype(99, 4)) :: v3
type(dtype(4, 99)) :: v4
end module m1
module m2
type baseType(baseParam)
integer, kind :: baseParam = 4
end type baseType
type dtype(dtypeParam)
integer, kind :: dtypeParam = 4
type(baseType(dtypeParam)) :: baseField
!ERROR: KIND parameter value (343) of intrinsic type REAL did not resolve to a supported value
real(baseField%baseParam) :: realField
end type dtype
type(dtype) :: v1
type(dtype(8)) :: v2
type(dtype(343)) :: v3
end module m2
module m3
type dtype(goodDefaultLen, badDefaultLen)
integer, len :: goodDefaultLen = 4
integer, len :: badDefaultLen = 343
end type dtype
type(dtype) :: v1
type(dtype(4, 4)) :: v2
type(dtype(99, 4)) :: v3
type(dtype(4, 99)) :: v4
real(v1%goodDefaultLen), pointer :: pGood1
!ERROR: REAL(KIND=343) is not a supported type
real(v1%badDefaultLen), pointer :: pBad1
real(v2%goodDefaultLen), pointer :: pGood2
real(v2%badDefaultLen), pointer :: pBad2
!ERROR: REAL(KIND=99) is not a supported type
real(v3%goodDefaultLen), pointer :: pGood3
real(v3%badDefaultLen), pointer :: pBad3
real(v4%goodDefaultLen), pointer :: pGood4
!ERROR: REAL(KIND=99) is not a supported type
real(v4%badDefaultLen), pointer :: pBad4
end module m3