mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:26:48 +00:00
29025a0600
Detect and report a bunch of uncaught semantic errors with coarray declarations. Add more tests, and clean up bad usage in existing tests.
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: 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: Function result may not be a coarray
|
|
integer :: res[10, *]
|
|
end
|