blob: e491b7a60300862e3357ff96637874bc1ad28586 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! { dg-do run }
!
! Check that PR116669 is fixed now.
! Contributed by Dominik Gronkiewicz <gronki@gmail.com>
program pr116669
implicit none (type, external)
type ast_expr_t
type(ast_opcall_t), allocatable :: op_call
end type
type ast_opcall_t
type(ast_expr_t), allocatable :: args(:)
end type
type(ast_opcall_t) :: o
allocate(o%args(2))
allocate(o%args(2)%op_call)
allocate(o%args(2)%op_call%args(3))
if (.NOT. allocated(o%args(2)%op_call%args)) stop 1
deallocate(o%args)
end program
|
