| ! { dg-do run } |
| ! Check "double" allocations of allocatable components (PR 20541). |
| ! |
| ! Contributed by Erik Edelmann <eedelmann@gcc.gnu.org> |
| ! and Paul Thomas <pault@gcc.gnu.org> |
| ! |
| program main |
| |
| implicit none |
| |
| type foo |
| integer, dimension(:), allocatable :: array |
| end type foo |
| |
| type(foo),allocatable,dimension(:) :: mol |
| type(foo),pointer,dimension(:) :: molp |
| integer :: i |
| |
| allocate (mol(1)) |
| allocate (mol(1), stat=i) |
| !print *, i ! /= 0 |
| if (i == 0) STOP 1 |
| |
| allocate (mol(1)%array(5)) |
| allocate (mol(1)%array(5),stat=i) |
| !print *, i ! /= 0 |
| if (i == 0) STOP 2 |
| |
| allocate (molp(1)) |
| allocate (molp(1), stat=i) |
| !print *, i ! == 0 |
| if (i /= 0) STOP 3 |
| |
| allocate (molp(1)%array(5)) |
| allocate (molp(1)%array(5),stat=i) |
| !print *, i ! /= 0 |
| if (i == 0) STOP 4 |
| |
| end program main |