mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 16:37:06 +00:00
f13d600132
This patch is to diagnose the case when a type bound procedure is passed as an actual procedure argument. call sub0(t%t3%t2%t%info1) Fix: https://github.com/llvm/llvm-project/issues/55826 Committed on behalf of DanielCChen Differential Revision: https://reviews.llvm.org/D141506
133 lines
6.0 KiB
Fortran
133 lines
6.0 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Regression test for more than one part-ref with nonzero rank
|
|
|
|
program m
|
|
interface
|
|
function real_info1(i)
|
|
end
|
|
subroutine real_info2()
|
|
end
|
|
subroutine real_generic()
|
|
end
|
|
end interface
|
|
type mt
|
|
complex :: c, c2(2)
|
|
integer :: x, x2(2)
|
|
character(10) :: s, s2(2)
|
|
real, pointer :: p
|
|
real, allocatable :: a
|
|
contains
|
|
procedure, nopass :: info1 => real_info1
|
|
procedure, nopass :: info2 => real_info2
|
|
procedure, nopass :: real_generic
|
|
generic :: g1 => real_generic
|
|
end type
|
|
type mt2
|
|
type(mt) :: t1(2,2)
|
|
end type
|
|
type mt3
|
|
type(mt2) :: t2(2)
|
|
end type
|
|
type mt4
|
|
type(mt3) :: t3(2)
|
|
end type
|
|
type(mt4) :: t(2)
|
|
|
|
print *, t(1)%t3(1)%t2(1)%t1%x ! no error
|
|
print *, t(1)%t3(1)%t2(1)%t1%x2(1) ! no error
|
|
print *, t(1)%t3(1)%t2(1)%t1%s(1:2) ! no error
|
|
print *, t(1)%t3(1)%t2(1)%t1%s2(1)(1:2) ! no error
|
|
print *, t(1)%t3(1)%t2(1)%t1%c%RE ! no error
|
|
print *, t(1)%t3(1)%t2(1)%t1%c%IM ! no error
|
|
print *, t(1)%t3(1)%t2(1)%t1%c2(1)%RE ! no error
|
|
print *, t(1)%t3(1)%t2(1)%t1%c2(1)%IM ! no error
|
|
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t%t3%t2%t1%x
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t(1)%t3%t2%t1%x
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t(1)%t3(1)%t2%t1%x
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t(1)%t3%t2(1)%t1%x
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t%t3%t2%t1%x2(1)
|
|
!ERROR: Reference to whole rank-1 component 'x2' of rank-2 array of derived type is not allowed
|
|
print *, t(1)%t3%t2%t1%x2
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t(1)%t3(1)%t2%t1%x2(1)
|
|
!ERROR: Subscripts of component 'x2' of rank-2 derived type array have rank 1 but must all be scalar
|
|
print *, t(1)%t3(1)%t2(1)%t1%x2(1:)
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t%t3%t2%t1%s(1:2)
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t(1)%t3%t2(1)%t1%s(1:2)
|
|
!ERROR: Subscripts of component 't1' of rank-1 derived type array have rank 1 but must all be scalar
|
|
print *, t%t3%t2%t1(1,:)%s(1:2)
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t%t3%t2%t1%s2(1)(1:2)
|
|
!ERROR: Subscripts of component 's2' of rank-2 derived type array have rank 1 but must all be scalar
|
|
print *, t(1)%t3%t2%t1%s2(1:)(1:2)
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t%t3%t2%t1%c%RE
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t(1)%t3%t2%t1%c%RE
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t(1)%t3(1)%t2%t1%c%RE
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t(1)%t3%t2(1)%t1%c%RE
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t%t3%t2%t1%c%IM
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t%t3%t2%t1%c2(1)%RE
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t(1)%t3%t2%t1%c2(1)%RE
|
|
!ERROR: Subscripts of component 'c2' of rank-2 derived type array have rank 1 but must all be scalar
|
|
print *, t(1)%t3(1)%t2%t1%c2(1:)%RE
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t(1)%t3%t2(1)%t1%c2(1)%RE
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
print *, t%t3%t2%t1%c2(1)%IM
|
|
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
call sub0(t%t3%t2%t1%info1(i))
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
call sub0(t%t3%t2%t1%info1)
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
call t%t3%t2%t1%info2
|
|
!ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed
|
|
call t%t3%t2%t1%g1
|
|
|
|
!ERROR: Reference to rank-2 object 't1' has 1 subscripts
|
|
call sub0(t%t3%t2%t1(1)%info1(i))
|
|
!ERROR: Reference to rank-2 object 't1' has 1 subscripts
|
|
call sub0(t%t3%t2%t1(1)%info1)
|
|
!ERROR: Reference to rank-2 object 't1' has 1 subscripts
|
|
call t%t3%t2%t1(1)%info2
|
|
!ERROR: Reference to rank-2 object 't1' has 1 subscripts
|
|
call t%t3%t2%t1(1)%g1
|
|
|
|
!ERROR: Reference to rank-2 object 't1' has 1 subscripts
|
|
call sub0(t%t3%t2%t1(1:)%info1(i))
|
|
!ERROR: Reference to rank-2 object 't1' has 1 subscripts
|
|
call sub0(t%t3%t2%t1(1:)%info1)
|
|
!ERROR: Reference to rank-2 object 't1' has 1 subscripts
|
|
call t%t3%t2%t1(1:)%info2
|
|
!ERROR: Reference to rank-2 object 't1' has 1 subscripts
|
|
call t%t3%t2%t1(1:)%g1
|
|
|
|
!ERROR: An allocatable or pointer component reference must be applied to a scalar base
|
|
print *, t(1)%t3(1)%t2(1)%t1%p
|
|
!ERROR: An allocatable or pointer component reference must be applied to a scalar base
|
|
print *, t%t3(1)%t2(1)%t1(1,1)%p
|
|
!ERROR: An allocatable or pointer component reference must be applied to a scalar base
|
|
print *, t(1)%t3(1)%t2(1)%t1%a
|
|
!ERROR: An allocatable or pointer component reference must be applied to a scalar base
|
|
print *, t%t3(1)%t2(1)%t1(1,1)%a
|
|
!ERROR: An allocatable or pointer component reference must be applied to a scalar base
|
|
t(1)%t3(1)%t2(1)%t1%p => null()
|
|
!ERROR: An allocatable or pointer component reference must be applied to a scalar base
|
|
t%t3(1)%t2(1)%t1(1,1)%p => null()
|
|
|
|
end
|