mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:46:46 +00:00
aace1e1719
When a program attempts to use a non-object entity as the base of a component reference or type parameter inquiry, the message is somewhat uninformative and the position of the entity's declaration will not reflect any updates made to the symbol during name resolution. Includes some NFC C++17 style clean-up on some code noticed while debugging (missing mandatory braces).
45 lines
1.1 KiB
Fortran
45 lines
1.1 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
subroutine s1
|
|
type :: t
|
|
integer :: i
|
|
integer :: s1
|
|
integer :: t
|
|
end type
|
|
!ERROR: 't' is already declared in this scoping unit
|
|
integer :: t
|
|
integer :: i, j
|
|
type(t) :: x
|
|
!ERROR: Derived type 't2' not found
|
|
type(t2) :: y
|
|
external :: v
|
|
type(t) :: v, w
|
|
external :: w
|
|
!ERROR: 'z' is not an object of derived type; it is implicitly typed
|
|
i = z%i
|
|
!ERROR: 's1' is not an object and may not be used as the base of a component reference or type parameter inquiry
|
|
i = s1%i
|
|
!ERROR: 'j' is not an object of derived type
|
|
i = j%i
|
|
!ERROR: Component 'j' not found in derived type 't'
|
|
i = x%j
|
|
!ERROR: 'v' is not an object and may not be used as the base of a component reference or type parameter inquiry
|
|
i = v%i
|
|
!ERROR: 'w' is not an object and may not be used as the base of a component reference or type parameter inquiry
|
|
i = w%i
|
|
i = x%i !OK
|
|
end subroutine
|
|
|
|
subroutine s2
|
|
type :: t1
|
|
integer :: i
|
|
end type
|
|
type :: t2
|
|
type(t1) :: x
|
|
end type
|
|
type(t2) :: y
|
|
integer :: i
|
|
!ERROR: Component 'j' not found in derived type 't1'
|
|
k = y%x%j
|
|
k = y%x%i !OK
|
|
end subroutine
|