|
111
|
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 !
|
|
|
8 subroutine 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, \\(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" } }
|
