2 ! { dg-options "-fcheck=recursion" }
4 ! PR 80361: [5/6/7 Regression] bogus recursive call to nonrecursive procedure with -fcheck=recursion
6 ! Contributed by Jürgen Reuter <juergen.reuter@desy.de>
12 type :: prt_spec_expr_t
16 class(prt_spec_expr_t
), allocatable
:: x
19 type, extends (prt_spec_expr_t
) :: prt_spec_list_t
23 class(prt_spec_list_t
), allocatable
:: y
26 allocate (prt_spec_list_t
:: y
%e
%x
)