gcc/testsuite/gfortran.dg/associated_3.f90

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