mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:56:42 +00:00
f8dbe79cc6
We implemented 19.3.4p1 literally in name resolution: A component name has the scope of its derived-type definition. Outside the type definition, it may also appear within a designator of a component of a structure of that type or as a component keyword in a structure constructor for that type. and within the derived-type definition would resolve the "bare" names of components in specification inquiries and other contexts to those components, not to any symbols in the enclosing scopes. It turns out that most Fortran compilers resolve only "bare" names thus when they are type parameters, and the names of data and procedure components do not shadow exterior symbols. Adjust name resolution to follow that precedent rather than what seems to be clear language in the standard. Differential Revision: https://reviews.llvm.org/D136984
65 lines
2.4 KiB
Fortran
65 lines
2.4 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! 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(dtypeParam) :: 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
|