flang/test/Semantics/deallocate04.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Check for type errors in DEALLOCATE statements
   3
   4 INTEGER, PARAMETER :: maxvalue=1024
   5
   6 Type dt
   7   Integer :: l = 3
   8 End Type
   9 Type t
  10   Type(dt) :: p
  11 End Type
  12
  13 Type(t),Allocatable :: x
  14
  15 Real :: r
  16 Integer :: s
  17 Integer :: e
  18 Integer :: pi
  19 Character(256) :: ee
  20 Procedure(Real) :: prp
  21
  22 Allocate(x)
  23
  24 !ERROR: Must have CHARACTER type, but is INTEGER(4)
  25 Deallocate(x, stat=s, errmsg=e)
  26
  27 !ERROR: Must have INTEGER type, but is REAL(4)
  28 !ERROR: Must have CHARACTER type, but is INTEGER(4)
  29 Deallocate(x, stat=r, errmsg=e)
  30
  31 End Program