gcc/testsuite/gfortran.dg/class_62.f90

   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