summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pointer_target_3.f90
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