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