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