6c1ac141d3
To enable Flang testing on Windows, shell scripts have to be ported to Python. In this patch the "test_errors.sh" script is ported to python ("test_errors.py"). The RUN line of existing tests was changed to make use of the python script.
Used python regex in place of awk/sed.
Reviewed By: Meinersbur
Differential Revision: https://reviews.llvm.org/D107575
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
|