flang/test/Semantics/nullify01.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Test that NULLIFY works
   3
   4 Module share
   5   Real, Pointer :: rp
   6   Procedure(Real), Pointer :: mprp
   7 End Module share
   8
   9 Program nullifytest
  10 Use share
  11
  12 INTEGER, PARAMETER :: maxvalue=1024
  13
  14 Type dt
  15   Integer :: l = 3
  16 End Type
  17 Type t
  18   Type(dt),Pointer :: p
  19 End Type
  20
  21 Type(t),Allocatable :: x(:)
  22 Type(t),Pointer :: y(:)
  23 Type(t),Pointer :: z
  24
  25 Integer, Pointer :: pi
  26 Procedure(Real), Pointer :: prp
  27
  28 Allocate(rp)
  29 Nullify(rp)
  30
  31 Allocate(x(3))
  32 Nullify(x(2)%p)
  33
  34 Nullify(y(2)%p)
  35
  36 Nullify(pi)
  37 Nullify(prp)
  38 Nullify(mprp)
  39
  40 Nullify(z%p)
  41
  42 End Program