gcc/testsuite/gfortran.dg/pr87991.f90


1
2
3
4
5
6
7
8
9
10
11

! { dg-do compile }
! { dg-options "-w" }
! PR fortran/87991
program p
   type t
      character(:), pointer :: c
   end type
   type(t) :: x
   allocate (character(3) :: x%c)
   data x%c /'abc'/   ! { dg-error "has the pointer attribute" }
end