forked from OSchip/llvm-project
27 lines
605 B
Fortran
27 lines
605 B
Fortran
! RUN: %S/test_errors.sh %s %t %flang_fc1
|
|
! Ensure that references to functions that return pointers can serve as
|
|
! "variables" in actual arguments. All of these uses are conforming and
|
|
! no errors should be reported.
|
|
module m
|
|
integer, target :: x = 1
|
|
contains
|
|
function get() result(p)
|
|
integer, pointer :: p
|
|
p => x
|
|
end function get
|
|
subroutine increment(n)
|
|
integer, intent(inout) :: n
|
|
n = n + 1
|
|
end subroutine increment
|
|
end module m
|
|
|
|
use m
|
|
integer, pointer :: q
|
|
get() = 2
|
|
call increment(get())
|
|
q => get()
|
|
read(*) get()
|
|
open(file='file',newunit=get())
|
|
allocate(q,stat=get())
|
|
end
|