summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/alloc_comp_auto_array_1.f90
blob: 915b2108f46bfebdf2854c2691aeccb3081a4f78 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
! { dg-do run }
! Fix for PR29699 - see below for details.
!
! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
!
PROGRAM vocabulary_word_count

  IMPLICIT NONE
  TYPE VARYING_STRING
    CHARACTER,DIMENSION(:),ALLOCATABLE :: chars
  ENDTYPE VARYING_STRING

  INTEGER :: list_size=200

  call extend_lists2

CONTAINS

! First the original problem: vocab_swap not being referenced caused
! an ICE because default initialization is used, which results in a
! call to gfc_conv_variable, which calls gfc_get_symbol_decl.

  SUBROUTINE extend_lists1
    type(VARYING_STRING),DIMENSION(list_size) :: vocab_swap
  ENDSUBROUTINE extend_lists1

! Curing this then uncovered two more problems: If vocab_swap were
! actually referenced, an ICE occurred in the gimplifier because
! the declaration for this automatic array is presented as a
! pointer to the array, rather than the array. Curing this allows
! the code to compile but it bombed out at run time because the
! malloc/free occurred in the wrong order with respect to the
! nullify/deallocate of the allocatable components.

  SUBROUTINE extend_lists2
    type(VARYING_STRING),DIMENSION(list_size) :: vocab_swap
    allocate (vocab_swap(1)%chars(10))
    if (.not.allocated(vocab_swap(1)%chars)) call abort ()
    if (allocated(vocab_swap(10)%chars)) call abort ()
  ENDSUBROUTINE extend_lists2
  
ENDPROGRAM vocabulary_word_count