! RUN: %python %S/test_errors.py %s %flang_fc1 | |
! Test deallocate of use- and host-associated variables | |
module m1 | |
real, pointer :: a(:) | |
real, allocatable :: b(:) | |
end | |
subroutine s1() | |
use m1 | |
complex, pointer :: c(:) | |
complex, allocatable :: d(:) | |
complex :: e(10) | |
deallocate(a) | |
deallocate(b) | |
contains | |
subroutine s2() | |
deallocate(a) | |
deallocate(b) | |
deallocate(c) | |
deallocate(d) | |
!ERROR: name in DEALLOCATE statement must have the ALLOCATABLE or POINTER attribute | |
deallocate(e) | |
end subroutine | |
end |