blob: ec1ac0ddd4d6144df92f59c13fd6ce5e2febcd76 [file] [log] [blame]
! { dg-do compile }
! PR 71860 - this used to ICE
! Original test case by Gerhard Steinmetz
program p
class(*), pointer :: z
z => null(z)
end