32 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check for type errors in DEALLOCATE statements3 4INTEGER, PARAMETER :: maxvalue=10245 6Type dt7 Integer :: l = 38End Type9Type t10 Type(dt) :: p11End Type12 13Type(t),Allocatable :: x14 15Real :: r16Integer :: s17Integer :: e18Integer :: pi19Character(256) :: ee20Procedure(Real) :: prp21 22Allocate(x)23 24!ERROR: Must have CHARACTER type, but is INTEGER(4)25Deallocate(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)29Deallocate(x, stat=r, errmsg=e)30 31End Program32