| ! 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 |