! { dg-do compile }
! { dg-options "-std=f95" }
! PR fortran/78278
program p
   character, pointer :: x => null()
   data x /null()/         ! { dg-error "GNU Extension: re-initialization" }
   print *, associated(x)
end

subroutine foo
   real :: x = 42
   data x /0/              ! { dg-error "GNU Extension: re-initialization" }
   print *, x
end subroutine foo