|
131
|
1 ! { dg-do run }
|
|
|
2 !
|
|
|
3 ! Test the fix for PR69739 in which the statement
|
|
|
4 ! R = operate(A, X) caused an ICE.
|
|
|
5 !
|
|
|
6 ! Contributed by John <jwmwalrus@gmail.com>
|
|
|
7 !
|
|
|
8 module test
|
|
|
9
|
|
|
10 implicit none
|
|
|
11 type, public :: sometype
|
|
|
12 real :: a = 0.
|
|
|
13 end type
|
|
|
14 contains
|
|
|
15
|
|
|
16 function dosomething(A) result(r)
|
|
|
17 type(sometype), intent(IN) :: A(:,:,:)
|
|
|
18 integer :: N
|
|
|
19 real, allocatable :: R(:), X(:)
|
|
|
20
|
|
|
21 N = PRODUCT(UBOUND(A))
|
|
|
22 allocate (R(N),X(N))
|
|
|
23 X = [(real(N), N = 1, size(X, 1))]
|
|
|
24 R = operate(A, X)
|
|
|
25 end function
|
|
|
26
|
|
|
27 function operate(A, X)
|
|
|
28 type(sometype), intent(IN) :: A(:,:,:)
|
|
|
29 real, intent(IN) :: X(:)
|
|
|
30 real :: operate(1:PRODUCT(UBOUND(A)))
|
|
|
31
|
|
|
32 operate = x
|
|
|
33 end function
|
|
|
34 end module test
|
|
|
35
|
|
|
36 use test
|
|
|
37 type(sometype) :: a(2, 2, 2)
|
|
|
38 if (any(int (dosomething(a)) .ne. [1,2,3,4,5,6])) STOP 1
|
|
|
39 end
|
