gcc/testsuite/gfortran.dg/data_pointer_2.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O -g" }
   3 ! PR fortran/77693 - ICE in rtl_for_decl_init
   4 ! Contributed by G.Steinmetz
   5
   6 program p
   7   implicit none
   8   complex, target  :: y    = (1.,2.)
   9   complex, target  :: z(2) = (3.,4.)
  10   complex, pointer :: a => y
  11   complex, pointer :: b => z(1)
  12   complex, pointer :: c, d, e
  13   data c /NULL()/   ! Valid
  14   data d /y/        ! Valid
  15   data e /(1.,2.)/  ! { dg-error "Pointer assignment target" }
  16   if (associated (a)) print *, a% re
  17   if (associated (b)) print *, b% im
  18   if (associated (c)) print *, c% re
  19   if (associated (d)) print *, d% im
  20   if (associated (e)) print *, e% re
  21 end