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
47
48
49
|
! RUN: %python %S/test_errors.py %s %flang_fc1
! Check for C1553 and 18.3.4(1)
function func1() result(res) bind(c)
! ERROR: Interoperable function result may not have ALLOCATABLE or POINTER attribute
integer, pointer :: res
end
function func2() result(res) bind(c)
! ERROR: Interoperable function result may not have ALLOCATABLE or POINTER attribute
integer, allocatable :: res
end
function func3() result(res) bind(c)
!ERROR: Interoperable function result must be scalar
integer :: res(2)
end
function func4() result(res) bind(c)
! ERROR: Interoperable character function result must have length one
character(*) :: res
end
function func5(n) result(res) bind(c)
integer :: n
! ERROR: Interoperable character function result must have length one
character(n) :: res
end
function func6() result(res) bind(c)
! ERROR: Interoperable character function result must have length one
character(2) :: res
end
function func7() result(res) bind(c)
integer, parameter :: n = 1
character(n) :: res ! OK
end
function func8() result(res) bind(c)
! ERROR: Interoperable function result may not have ALLOCATABLE or POINTER attribute
! ERROR: Interoperable character function result must have length one
character(:), pointer :: res
end
function func9() result(res) bind(c)
! ERROR: Interoperable function result may not be a coarray
integer :: res[10, *]
end
|
