pointer_assign_3.f90

来自「用于进行gcc测试」· F90 代码 · 共 7 行

! { dg-do compile }
! PR32360 Won't compile 'data ptr1 /null ()/' when ptr1 has pointer attribute.
      integer, pointer :: ptr1
      data ptr1 /NULL()/
      end