| ! { dg-do run } |
| ! |
| ! Check the test for PR69422, in which the allocatable component 'Source' |
| ! of the pointer component 'P' was not automatically (re)allocated on |
| ! assignment. |
| ! |
| ! Contributed by Anthony Lewis <antony@cosmologist.info> |
| ! |
| module funcs |
| implicit none |
| |
| Type T |
| character(LEN=:), allocatable :: source |
| end type T |
| |
| type TPointer |
| Type(T), pointer :: P |
| end type TPointer |
| |
| end module |
| |
| program Test1 |
| use funcs |
| Type(TPointer) :: X |
| |
| allocate(X%P) |
| |
| X%P%Source = 'test string' |
| if (.not.allocated (X%P%Source)) STOP 1 |
| if (X%P%Source .ne. 'test string') STOP 2 |
| |
| end program Test1 |
