111
|
1 ! { dg-do run }
|
|
2 ! { dg-options "-fcheck=recursion" }
|
|
3 !
|
|
4 ! PR 80361: [5/6/7 Regression] bogus recursive call to nonrecursive procedure with -fcheck=recursion
|
|
5 !
|
|
6 ! Contributed by Jürgen Reuter <juergen.reuter@desy.de>
|
|
7
|
|
8 program main_ut
|
|
9
|
|
10 implicit none
|
|
11
|
|
12 type :: prt_spec_expr_t
|
|
13 end type
|
|
14
|
|
15 type :: prt_expr_t
|
|
16 class(prt_spec_expr_t), allocatable :: x
|
|
17 end type
|
|
18
|
|
19 type, extends (prt_spec_expr_t) :: prt_spec_list_t
|
|
20 type(prt_expr_t) :: e
|
|
21 end type
|
|
22
|
|
23 class(prt_spec_list_t), allocatable :: y
|
|
24
|
|
25 allocate (y)
|
|
26 allocate (prt_spec_list_t :: y%e%x)
|
|
27 deallocate(y)
|
|
28
|
|
29 end program
|