3 subroutine alloc(coarray_alloc, coarray_not_alloc, t2_not_alloc)  subroutine
12     integer, allocatable :: alloc(:)  argument
22   integer :: not_alloc(100)  argument
23   real, allocatable :: x_alloc  argument
24   character(:), allocatable :: char_alloc(:)  argument
25   type(t1) :: dt_not_alloc(100)  argument
26   type(t1), allocatable :: dt_alloc(:)  argument
28   real, allocatable :: coarray_alloc[:, :]  argument
29   real, allocatable :: coarray_alloc_array(:)[:, :]  argument
30   real :: coarray_not_alloc(:)[*]  argument
32   type(t2) :: t2_not_alloc  argument
39   print *, allocated(dt_not_alloc(3)%alloc)  argument