Update ChangeLog and version files for release
[official-gcc.git] / gcc / testsuite / gfortran.dg / associated_3.f90
blobc0a7f9a26f4d5fc3bf5f183bd0e30775138e4de8
1 ! { dg-do compile }
2 ! Test for fix of PR27655
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