| ! { dg-do run } | |
| ! PR 59781 - this was not initialized correctly before. | |
| ! Original test case by James Spencer. | |
| implicit none | |
| type t1 | |
| integer :: s | |
| end type | |
| type t2 | |
| type(t1) :: state = t1(1) | |
| real, allocatable :: store(:) | |
| end type | |
| call test | |
| contains | |
| subroutine test | |
| type(t2) :: rng | |
| if (rng%state%s /= 1) STOP 1 | |
| end subroutine | |
| end |