17 lines
399 B
Fortran
17 lines
399 B
Fortran
|
! { 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
|