summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pointer_assign_3.f90
blob: 432d59fffe99b42931cba18fc3026cfeeb8d0f82 (plain)
1
2
3
4
5
6
! { dg-do compile }
! PR32360 Won't compile 'data ptr1 /null ()/' when ptr1 has pointer attribute.
      integer, pointer :: ptr1
      data ptr1 /NULL()/
      end