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
9module 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
19contains
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
28end module m_common_attrs
29