26 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12 3! Test deallocate of use- and host-associated variables4module m15 real, pointer :: a(:)6 real, allocatable :: b(:)7end8 9subroutine s1()10 use m111 complex, pointer :: c(:)12 complex, allocatable :: d(:)13 complex :: e(10)14 deallocate(a)15 deallocate(b)16contains17 subroutine s2()18 deallocate(a)19 deallocate(b)20 deallocate(c)21 deallocate(d)22 !ERROR: Name in DEALLOCATE statement must have the ALLOCATABLE or POINTER attribute23 deallocate(e)24 end subroutine25end26