27 lines
610 B
Fortran
27 lines
610 B
Fortran
|
! RUN: %python %S/test_errors.py %s %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
|