Imported Upstream version 4.8.1
[platform/upstream/gcc48.git] / 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