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
|
