1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
! RUN: %python %S/test_errors.py %s %flang_fc1
! The RHS of a pointer assignment can be unlimited polymorphic
! if the LHS is a sequence type.
program main
type nonSeqType
integer j
end type
type seqType
sequence
integer j
end type
type(nonSeqType), target :: xNonSeq = nonSeqType(1)
type(nonSeqType), pointer :: pNonSeq
type(seqType), target :: xSeq = seqType(1), aSeq(1)
type(seqType), pointer :: pSeq, paSeq(:)
!ERROR: function result type 'CLASS(*)' is not compatible with pointer type 'nonseqtype'
pNonSeq => polyPtr(xNonSeq)
pSeq => polyPtr(xSeq) ! ok
!ERROR: Pointer has rank 1 but target has rank 0
paSeq => polyPtr(xSeq)
!ERROR: Pointer has rank 0 but target has rank 1
pSeq => polyPtrArr(aSeq)
contains
function polyPtr(target)
class(*), intent(in), target :: target
class(*), pointer :: polyPtr
polyPtr => target
end
function polyPtrArr(target)
class(*), intent(in), target :: target(:)
class(*), pointer :: polyPtrArr(:)
polyPtrArr => target
end
function err1(target)
class(*), intent(in), target :: target(:)
class(*), pointer :: err1
!ERROR: Pointer has rank 0 but target has rank 1
err1 => target
end
function err2(target)
class(*), intent(in), target :: target
class(*), pointer :: err2(:)
!ERROR: Pointer has rank 1 but target has rank 0
err2 => target
end
end
|
