2 ! Check "double" allocations of allocatable components (PR 20541).
\r
4 ! Contributed by Erik Edelmann <eedelmann@gcc.gnu.org>
\r
5 ! and Paul Thomas <pault@gcc.gnu.org>
\r
12 integer, dimension(:), allocatable :: array
\r
15 type(foo),allocatable,dimension(:) :: mol
\r
16 type(foo),pointer,dimension(:) :: molp
\r
20 allocate (mol(1), stat=i)
\r
22 if (i == 0) call abort()
\r
24 allocate (mol(1)%array(5))
\r
25 allocate (mol(1)%array(5),stat=i)
\r
27 if (i == 0) call abort()
\r
30 allocate (molp(1), stat=i)
\r
32 if (i /= 0) call abort()
\r
34 allocate (molp(1)%array(5))
\r
35 allocate (molp(1)%array(5),stat=i)
\r
37 if (i == 0) call abort()
\r