1! { dg-do compile }
2! PR32360 Won't compile 'data ptr1 /null ()/' when ptr1 has pointer attribute.
3      integer, pointer :: ptr1
4      data ptr1 /NULL()/
5      end
6
7