coarray_41.f90: Add "-latomic" option if libatomic_available.
[official-gcc.git] / gcc / testsuite / gfortran.dg / pointer_target_3.f90
blob85e4981cacff12b565b59c0d68da5443583828c3
1 ! { dg-do compile }
3 ! TARGET actual to POINTER dummy with INTENT(IN)
5 program test
6 implicit none
7 integer, target :: a
8 integer :: b
9 call foo(a) ! OK
10 call foo(b) ! { dg-error "must be a pointer" }
11 call bar(a) ! { dg-error "must be a pointer" }
12 call bar(b) ! { dg-error "must be a pointer" }
13 contains
14 subroutine foo(p)
15 integer, pointer, intent(in) :: p
16 end subroutine foo
17 subroutine bar(p)
18 integer, pointer :: p
19 end subroutine bar
20 end program test