2 ! { dg-options "-fcoarray=lib -fdump-tree-original" }
4 ! Allocate/deallocate with libcaf.
6 ! As coarray_lib_alloc_2.f90 but for a subroutine instead of the PROGRAM
11 class(t
), allocatable
:: xx
[:], yy(:)[:]
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
)
19 ! { dg-final { scan-tree-dump-times "_gfortran_caf_register \\(1, 1, &xx._data.token, \\(void \\*\\) &xx._data, &stat.., &errmsg, 200\\);" 1 "original" } }
20 ! { dg-final { scan-tree-dump-times "_gfortran_caf_register \\(1, 1, &yy._data.token, \\(void \\*\\) &yy._data, &stat.., &errmsg, 200\\);" 1 "original" } }
21 ! { dg-final { scan-tree-dump-times "_gfortran_caf_deregister .&xx._data.token, 0, &stat.., &errmsg, 200.;" 1 "original" } }
22 ! { dg-final { scan-tree-dump-times "_gfortran_caf_deregister .&yy._data.token, 0, &stat.., &errmsg, 200.;" 1 "original" } }
23 ! { dg-final { scan-tree-dump-times "_gfortran_caf_deregister .&yy._data.token, 0, 0B, 0B, 0.;" 1 "original" } }
24 ! { dg-final { scan-tree-dump-times "_gfortran_caf_deregister .&xx._data.token, 0, 0B, 0B, 0.;" 1 "original" } }