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