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
|
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic
! Check errors in TRANSFER()
subroutine subr(o)
integer, intent(in), optional :: o
type empty
end type
type(empty) :: empty1(1)
type hasdescriptor
real, allocatable :: allocatable
end type
type(hasdescriptor) hasDesc
real :: empty2(0)
character(0) :: empty3(1)
integer, pointer :: source(:)
integer, allocatable :: ia
integer, pointer :: ip
!ERROR: Element size of MOLD= array may not be zero when SOURCE= is not empty
print *, transfer(1., empty1)
print *, transfer(1., empty2) ! ok
!ERROR: Element size of MOLD= array may not be zero when SOURCE= is not empty
print *, transfer(1., empty3)
!WARNING: Element size of MOLD= array may not be zero unless SOURCE= is empty
print *, transfer(source, empty1)
print *, transfer(source, empty2) ! ok
!WARNING: Element size of MOLD= array may not be zero unless SOURCE= is empty
print *, transfer(source, empty3)
!ERROR: SIZE= argument may not be the optional dummy argument 'o'
print *, transfer(1., empty2, size=o)
!WARNING: SIZE= argument that is allocatable or pointer must be present at execution; parenthesize to silence this warning
print *, transfer(1., empty2, size=ia)
!WARNING: SIZE= argument that is allocatable or pointer must be present at execution; parenthesize to silence this warning
print *, transfer(1., empty2, size=ip)
!WARNING: Source of TRANSFER contains allocatable or pointer component %allocatable
print *, transfer(hasDesc, 1)
end
|
