| ! { dg-do run } | |
| ! PR 27470: This used fail because of confusion between | |
| ! mol (allocatable) and mol(1)%array(:) (pointer). | |
| ! Derived from a test case by FX Coudert. | |
| PROGRAM MAIN | |
| TYPE foo | |
| INTEGER, DIMENSION(:), POINTER :: array | |
| END TYPE foo | |
| type(foo),allocatable,dimension(:) :: mol | |
| ALLOCATE (mol(1)) | |
| ALLOCATE (mol(1)%array(5)) | |
| ALLOCATE (mol(1)%array(5)) | |
| END |