summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/associated_3.f90
blob: c0a7f9a26f4d5fc3bf5f183bd0e30775138e4de8 (plain)
1
2
3
4
5
6
7
8
! { dg-do compile }
! Test for fix of PR27655
!
!Contributed by Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org> 
  integer, pointer :: i
  print *, associated(NULL(),i) ! { dg-error "not permitted as actual argument" }
  print *, associated(i,NULL()) ! { dg-error "not permitted as actual argument" }
end