| ! RUN: %python %S/test_errors.py %s %flang_fc1 |
| ! Check for type errors in DEALLOCATE statements |
| |
| INTEGER, PARAMETER :: maxvalue=1024 |
| |
| Type dt |
| Integer :: l = 3 |
| End Type |
| Type t |
| Type(dt) :: p |
| End Type |
| |
| Type(t),Allocatable :: x |
| |
| Real :: r |
| Integer :: s |
| Integer :: e |
| Integer :: pi |
| Character(256) :: ee |
| Procedure(Real) :: prp |
| |
| Allocate(x) |
| |
| !ERROR: Must have CHARACTER type, but is INTEGER(4) |
| Deallocate(x, stat=s, errmsg=e) |
| |
| !ERROR: Must have INTEGER type, but is REAL(4) |
| !ERROR: Must have CHARACTER type, but is INTEGER(4) |
| Deallocate(x, stat=r, errmsg=e) |
| |
| End Program |
