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
|