1! { dg-do compile }
2! { dg-options "-fcoarray=lib -fdump-tree-original" }
3!
4! Allocate/deallocate with libcaf.
5!
6! As coarray_lib_alloc_2.f90 but for a subroutine instead of the PROGRAM
7!
8subroutine test
9 type t
10 end type t
11 class(t), allocatable :: xx[:], yy(:)[:]
12 integer :: stat
13 character(len=200) :: errmsg
14 allocate(xx[*], stat=stat, errmsg=errmsg)
15 allocate(yy(2)[*], stat=stat, errmsg=errmsg)
16 deallocate(xx,yy,stat=stat, errmsg=errmsg)
17 end
18
19! { dg-final { scan-tree-dump-times "_gfortran_caf_register .1, 1, &xx._data.token, &stat.., &errmsg, 200.;" 1 "original" } }
20! { dg-final { scan-tree-dump-times "_gfortran_caf_register .1, 1, &yy._data.token, &stat.., &errmsg, 200.;" 1 "original" } }
21! { dg-final { scan-tree-dump-times "_gfortran_caf_deregister .&xx._data.token, &stat.., &errmsg, 200.;" 1 "original" } }
22! { dg-final { scan-tree-dump-times "_gfortran_caf_deregister .&yy._data.token, &stat.., &errmsg, 200.;" 1 "original" } }
23! { dg-final { scan-tree-dump-times "_gfortran_caf_deregister .&yy._data.token, 0B, 0B, 0.;" 1 "original" } }
24! { dg-final { scan-tree-dump-times "_gfortran_caf_deregister .&xx._data.token, 0B, 0B, 0.;" 1 "original" } }
25