flang/test/Semantics/deallocate01.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Test that DEALLOCATE works
   3
   4 INTEGER, PARAMETER :: maxvalue=1024
   5
   6 Type dt
   7   Integer :: l = 3
   8 End Type
   9 Type t
  10   Type(dt),Pointer :: p
  11 End Type
  12
  13 Type(t),Allocatable :: x(:)
  14 Type(t),Pointer :: y(:)
  15 Type(t),Pointer :: z
  16 Integer :: s
  17 CHARACTER(256) :: e
  18
  19 Integer, Pointer :: pi
  20
  21 Allocate(pi)
  22 Allocate(x(3))
  23
  24 Deallocate(x(2)%p)
  25
  26 Deallocate(y(2)%p)
  27
  28 Deallocate(pi)
  29
  30 Deallocate(z%p)
  31
  32 !ERROR: An allocatable or pointer component reference must be applied to a scalar base
  33 Deallocate(x%p, stat=s, errmsg=e)
  34 Deallocate(x, errmsg=e)
  35 Deallocate(x, stat=s)
  36
  37 Deallocate(y, stat=s, errmsg=e)
  38 Deallocate(y, errmsg=e)
  39 Deallocate(y, stat=s)
  40
  41 Deallocate(z, stat=s, errmsg=e)
  42 Deallocate(z, errmsg=e)
  43 Deallocate(z, stat=s)
  44
  45 Deallocate(z, y, stat=s, errmsg=e)
  46 Deallocate(z, y, errmsg=e)
  47 Deallocate(z, y, stat=s)
  48
  49 End Program