gcc/testsuite/gfortran.dg/pr69955.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fdump-tree-original" }
   3
   4 program p
   5   implicit none
   6
   7   type :: t1
   8     integer, allocatable :: t(:)
   9   end type t1
  10
  11   type :: t2
  12     type(t1), allocatable :: x1(:)
  13   end type t2
  14
  15   type(t2) :: var(10)
  16
  17   integer :: i
  18
  19   do i= 1, 10
  20     allocate(var(i)%x1(100))
  21     allocate(var(i)%x1(1)%t(100))
  22   enddo
  23
  24   open(unit = 37, file = "/dev/null", status = "old")
  25
  26   call s(1)
  27
  28   close(unit = 37)
  29
  30   do i=1,10
  31     deallocate(var(i)%x1)
  32   enddo
  33
  34 contains
  35
  36   subroutine s(counter)
  37     implicit none
  38     integer, intent(in) :: counter
  39     integer :: i, j, n
  40
  41     do j=1, counter
  42       n = size( [ ( var(i)%x1 , i = 1, size(var) ) ] )
  43       write(unit = 37, fmt = '(i5)') n
  44     enddo
  45   end subroutine
  46
  47 end program p
  48 ! { dg-final { scan-tree-dump-times "__builtin_malloc" 4 "original" } }
  49 ! { dg-final { scan-tree-dump-times "__builtin_free" 4 "original" } }