gcc/testsuite/gfortran.dg/pointer_comp_init_1.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/50050
   4 ! ICE whilst trying to access NULL shape.
   5
   6 ! Reduced from the FoX library http://www1.gly.bris.ac.uk/~walker/FoX/
   7 ! Contributed by Andrew Benson <abenson@its.caltech.edu>
   8
   9 module m_common_attrs
  10   implicit none
  11
  12   type dict_item
  13   end type dict_item
  14
  15   type dict_item_ptr
  16      type(dict_item), pointer :: d => null()
  17   end type dict_item_ptr
  18
  19 contains
  20
  21   subroutine add_item_to_dict()
  22     type(dict_item_ptr), pointer :: tempList(:)
  23     integer :: n
  24
  25     allocate(tempList(0:n+1))
  26   end subroutine add_item_to_dict
  27
  28 end module m_common_attrs