mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-16 22:06:36 +00:00
c4a77bfb62
After https://github.com/llvm/llvm-project/pull/73301, all semantics tests using `triple XXX` options need to have a `REQUIRED: XX-registered-target` since the llvm::TargetMachine is needed to get the llvm::DataLayout before semantics. Fix three tests that lacked this. Fixes: https://lab.llvm.org/buildbot/#/builders/21/builds/87263 https://lab.llvm.org/buildbot/#/builders/268/builds/3841
29 lines
930 B
Fortran
29 lines
930 B
Fortran
! RUN: %python %S/test_symbols.py %s %flang_fc1 -triple x86_64-unknown-linux-gnu
|
|
! REQUIRES: x86-registered-target
|
|
|
|
!DEF: /MainProgram1/rpdt DerivedType
|
|
!DEF: /MainProgram1/rpdt/k TypeParam INTEGER(4)
|
|
type :: rpdt(k)
|
|
!REF: /MainProgram1/rpdt/k
|
|
integer, kind :: k
|
|
!REF: /MainProgram1/rpdt/k
|
|
!DEF: /MainProgram1/rpdt/x ObjectEntity REAL(int(int(k,kind=4),kind=8))
|
|
real(kind=k) :: x
|
|
end type rpdt
|
|
!DEF: /MainProgram1/zpdt DerivedType
|
|
!DEF: /MainProgram1/zpdt/k TypeParam INTEGER(4)
|
|
type :: zpdt(k)
|
|
!REF: /MainProgram1/zpdt/k
|
|
integer, kind :: k
|
|
!REF: /MainProgram1/zpdt/k
|
|
!DEF: /MainProgram1/zpdt/x ObjectEntity COMPLEX(int(int(k,kind=4),kind=8))
|
|
complex(kind=k) :: x
|
|
end type zpdt
|
|
!REF: /MainProgram1/rpdt
|
|
!DEF: /MainProgram1/a10 ObjectEntity TYPE(rpdt(k=10_4))
|
|
type(rpdt(10)) :: a10
|
|
!REF: /MainProgram1/zpdt
|
|
!DEF: /MainProgram1/z10 ObjectEntity TYPE(zpdt(k=10_4))
|
|
type(zpdt(10)) :: z10
|
|
end program
|