blob: 617405be110e0e640d6b831a86443a2225c85fc0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { 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
|
