Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/deferred_character_17.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
!{ 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