| !{ dg-do run } | |
| ! Check fix for PR fortran/71623 | |
| program allocatemvce | |
| implicit none | |
| character(len=:), allocatable :: string | |
| integer, dimension(4), target :: array = [1,2,3,4] | |
| integer, dimension(:), pointer :: array_ptr | |
| array_ptr => array | |
| ! The allocate used to segfault | |
| allocate(character(len=size(array_ptr))::string) | |
| end program allocatemvce |