2d6e280223
As Fortran 2018 C1553, if with BIND(C), the function result shall be an interoperable scalar variable. As Fortran 2018 18.3.4(1), the interoperable scalar variable is not a coarray, has neither the ALLOCATABLE nor the POINTER attribute, and if it is of type character its length is not assumed or declared by an expression that is not a constant expression. As Fortran 2018 18.3.1(1), if the type is character, the length type parameter is interoperable if and only if its value is one. Reviewed By: PeteSteinfeld, jeanPerier Differential Revision: https://reviews.llvm.org/D137254
50 lines
1.3 KiB
Fortran
50 lines
1.3 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Check for C1553 and 18.3.4(1)
|
|
|
|
function func1() result(res) bind(c)
|
|
! ERROR: BIND(C) function result cannot have ALLOCATABLE or POINTER attribute
|
|
integer, pointer :: res
|
|
end
|
|
|
|
function func2() result(res) bind(c)
|
|
! ERROR: BIND(C) function result cannot have ALLOCATABLE or POINTER attribute
|
|
integer, allocatable :: res
|
|
end
|
|
|
|
function func3() result(res) bind(c)
|
|
! ERROR: BIND(C) function result must be scalar
|
|
integer :: res(2)
|
|
end
|
|
|
|
function func4() result(res) bind(c)
|
|
! ERROR: BIND(C) character function result must have length one
|
|
character(*) :: res
|
|
end
|
|
|
|
function func5(n) result(res) bind(c)
|
|
integer :: n
|
|
! ERROR: BIND(C) character function result must have length one
|
|
character(n) :: res
|
|
end
|
|
|
|
function func6() result(res) bind(c)
|
|
! ERROR: BIND(C) 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: BIND(C) function result cannot have ALLOCATABLE or POINTER attribute
|
|
! ERROR: BIND(C) character function result must have length one
|
|
character(:), pointer :: res
|
|
end
|
|
|
|
function func9() result(res) bind(c)
|
|
! ERROR: BIND(C) function result cannot be a coarray
|
|
integer :: res[10, *]
|
|
end
|