blob: 128ae8a8fea8e165668cf74d29f5aec3d2d03648 (
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
|
! { dg-do run }
!
! Test the fix for PR65024, in which the structure for the 'info'
! component of type 'T' was not being converted into TREE_SSA and
! so caused an ICE in trans-expr.c:gfc_conv_component_ref.
!
! Reported by <matt@gneilson.plus.com>
!
MODULE X
TYPE T
CLASS(*), pointer :: info
END TYPE
END MODULE
PROGRAM P
call bug
CONTAINS
SUBROUTINE BUG
USE X
CLASS(T), pointer :: e
integer, target :: i = 42
allocate(e)
e%info => NULL () ! used to ICE
if (.not.associated(e%info)) e%info => i ! used to ICE
select type (z => e%info)
type is (integer)
if (z .ne.i) STOP 1
end select
END SUBROUTINE
SUBROUTINE NEXT
USE X
CLASS (T), pointer :: e
END SUBROUTINE
END
|
