blob: 85e4981cacff12b565b59c0d68da5443583828c3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { dg-do compile }
!
! TARGET actual to POINTER dummy with INTENT(IN)
!
program test
implicit none
integer, target :: a
integer :: b
call foo(a) ! OK
call foo(b) ! { dg-error "must be a pointer" }
call bar(a) ! { dg-error "must be a pointer" }
call bar(b) ! { dg-error "must be a pointer" }
contains
subroutine foo(p)
integer, pointer, intent(in) :: p
end subroutine foo
subroutine bar(p)
integer, pointer :: p
end subroutine bar
end program test
|
